Bonjour a tous,
Je vous expose mon probleme, mon Reader n arrive pas a lire ma donnée du SELECT COUNT (*) AS nBEnfants



Private Sub CmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdOk.Click
Dim ChaineSql As String
Dim chaineSql2 As String
Dim NbEnfants As Integer

ModuleConnexion.Init() ' Connection a la base

ChaineSql = "SELECT RESPONSABLE_numero, RESPONSABLE_nom, RESPONSABLE_prenom " & _
"FROM RESPONSABLE " & _
"WHERE RESPONSABLE_login = '" & TxtLogin.Text & "' " & _
"AND RESPONSABLE_motDePasse = '" & TxtMdp.Text & "' "

Dim Commande As New System.Data.OleDb.OleDbCommand

With Commande
.CommandText = ChaineSql
.CommandType = CommandType.Text
.Connection = maConnexion
End With

' PHASE 3 : EXECUTION ET RECUPERATION DES DONNES
Dim Reader As System.Data.OleDb.OleDbDataReader

Reader = Commande.ExecuteReader()

If Reader.Read() Then
' login correct
NumResp = Reader("RESPONSABLE_numero")
NomResp = Reader("RESPONSABLE_nom")
PrenomResp = Reader("RESPONSABLE_prenom")

chaineSql2 = "SELECT COUNT(*) as NbEnfants " & _
"FROM ETUDIANT " & _
"WHERE ETUDIANT_numResponsable = '" & NumResp & "' "



Commande.CommandText = chaineSql2
Reader.Read()
NbEnfants = Reader("NbEnfants")

Reader.Close()

If NbEnfants > 1 Then
FrmPrePreSelection.Show()
Me.Hide()
Else
FrmPreSelection.Show()
Me.Hide()
End If

Else
MsgBox("Erreur dans la saisie, recommencez.", MsgBoxStyle.OkOnly, "Erreur")
End If




TxtLogin.Text = ""
TxtMdp.Text = ""

End Sub



Si vous avez une idée, merci de m aider