Pb OleDbDataReader

J'ai une problème avec un datareader. Voici le message d'erreur :

C:\temp\DemandeDossier.vb(6): 'System.Data.OleDb.OleDbDataReader.Private Overloads Sub New(connection As System.Data.OleDb.OleDbConnection, command As System.Data.OleDb.OleDbCommand, depth As Integer, chapter As System.IntPtr)' n'est pas accessible dans ce contexte, car il est 'Private'.

voici les déclarations :
Dim cmdCycle As New OleDb.OleDbCommand()
Dim drCycle As New OleDb.OleDbDataReader()

voici le bout de code correspondant :
cmdCycle.CommandText = "SELECT libelle_cycle FROM cycle"
drCycle = cmdCycle.ExecuteReader()
While (drCycle.Read() = True)
cbCycle.Items.Add(drCycle.GetValue(0))
End While
drCycle.Close()

Si vous trouvez comment faire disparaitre cette erreur, dites le moi SVP.

Merci d'avance...

Essaie de remplacer :
Dim drCycle As New OleDb.OleDbDataReader()
par :
Dim drCycle As OleDb.OleDbDataReader

Tu peux aussi simplifier :
While (drCycle.Read() = True)
par :
While drCycle.Read()

@+

bestmomo


-------------------------------
Réponse au message :
-------------------------------

> J'ai une problème avec un datareader. Voici le message d'erreur :
>
> C:\temp\DemandeDossier.vb(6): 'System.Data.OleDb.OleDbDataReader.Private Overloads Sub New(connection As System.Data.OleDb.OleDbConnection, command As System.Data.OleDb.OleDbCommand, depth As Integer, chapter As System.IntPtr)' n'est pas accessible dans ce contexte, car il est 'Private'.
>
> voici les déclarations :
> Dim cmdCycle As New OleDb.OleDbCommand()
> Dim drCycle As New OleDb.OleDbDataReader()
>
> voici le bout de code correspondant :
> cmdCycle.CommandText = "SELECT libelle_cycle FROM cycle"
> drCycle = cmdCycle.ExecuteReader()
> While (drCycle.Read() = True)
> cbCycle.Items.Add(drCycle.GetValue(0))
> End While
> drCycle.Close()
>
> Si vous trouvez comment faire disparaitre cette erreur, dites le moi SVP.
>
> Merci d'avance...