Cadage du formulaire de connection en VB

bonjour
jais utilise un code pour mon formulaire de connections mais le code ne marche pas S.V.P. aidez moi a résoudre le problème du code suivant:
call connction()
requetemysql.open "select login,pwd fromUSERS"
If Txtid.text ="" Or Txtpwd.text = "" then
MsgBox(" vous devez remplir les champs")
end if
If Txtid.text =requetemysql"login" and Txtpwd.text = requetemysql"pwd"
then references.enabled=true
commande.enabled=true

else msgbox"erreur"