Comment utiliser OleDbDataReader VB

Yo,

J'aimerais pouvoir lire des informations dans ma base de données.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 Private Sub Timer_anniv_Ticks(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_anniv.Tick
 
        Dim dateDuJour As Date
 
        ' Récuperer la date actuelle
        dateDuJour = System.DateTime.Today.Date
        ' aller chercher en base de donnée les personnes nées à cette date
        ' se connecter à la base de données
 
        Dim ConnectionString As String = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\Users\profeln\Documents\Visual Studio 2010\Projects\InterfaceAnniv\InterfaceAnniv\DBanniv.sdf;"
        Dim BDDConnection = New OleDbConnection(ConnectionString)
        'Try
        BDDConnection.Open()
        ' émettre la requête
        Dim BDDCommand = New OleDbCommand
        BDDCommand.Connection = BDDConnection
 
        Dim requete As String
        requete = "SELECT Nom , Prénom FROM TabAnniv WHERE Date = " & dateDuJour.ToString
        BDDCommand.CommandText = "SELECT Nom , Prénom FROM TabAnniv WHERE Date = " & dateDuJour.ToString
        MsgBox(requete, MsgBoxStyle.Information, "REQUETE")
 
        Dim NomPrenomReader As OleDbDataReader = BDDCommand.ExecuteReader()
 
        While NomPrenomReader.Read()
            Console.WriteLine(NomPrenomReader(0).ToString() & NomPrenomReader(1).ToString())
        End While
        NomPrenomReader.Close()
        BDDCommand.Clone()
        ' fermer la connexion à la base de données
        BDDConnection.Close()
 
 
        ' MsgBox(System.DateTime.Today.Date, MsgBoxStyle.Information, "Test Timer")
 
        Catch ex As Exception
         MsgBox("Can not open connection ! ")
         End Try
    End Sub

Voici le code que j'utilise, à savoir que la connexion est demandée toute les 5 secondes.

Le problème étant que j'ai une erreur à ligne où j'utilise le Reader

Pièce jointe 267690

Voilà l'erreur, si quelqu'un peut me mettre sur une bonne piste je suis preneur !

Merci d'avance ;)