Aide moi svp un problemme avec viseul basic 6

Fermé
drknow@windowslive.com Messages postés 1 Date d'inscription dimanche 7 juin 2009 Statut Membre Dernière intervention 7 juin 2009 - 7 juin 2009 à 02:45
Bonjour,
je cree un programme sous vb qui lie une base de donnais
les utulisateur est crée selon la strategie que je vuex mais lorsque je veux entre sur le programme il me dis que acun utulisateur avec ce donnais voila le code source de FROM login
'coonecte in root
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox " Sorry,enter le nom utulisateur(login)", vbCritical + vbMsgBoxRight, " Error login"
Exit Sub
End If
If Text2 = "" Then
MsgBox "sorry,enter le mot de passe (password)", vbCritical + vbMsgBoxRight, "error password"
Exit Sub
End If
SQLs = "Select * From utulisateur Where login = ' " & Text1 & " ' And password = ' " & Text2 & " ' "
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
If RS.EOF Then
MsgBox " Sorry, aucun utulisateur avec ce login ! ", vbCritical + vbMsgBoxRight, " Error Login "
Exit Sub
Else
login = Text1
Password = Text2
Set RS = Nothing
Set DB = Nothing
MDIForm1.Show
Unload Me
End If

End Sub

Private Sub Command2_Click()
Unload Me
End Sub
------'FROM LOADE
Private Sub Form_Load()
PoolConnection

End Sub
Private Sub text1_Keypress(keyKeyAscii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If

End Sub
Private Sub text2_keyp