Visual Basic - congtraeña

necesito un programa de contraseña lo ke kiero ke aga es ke cuando le de aceptar verifique el usuario y la contraseña en una base de datos en acces

ahi esta el codigo que necesitas para verificar usuario y pass en una base de datos


Dim bd As Connection
Dim rec As Recordset
Dim SQL As String

Private Sub Command1_Click()
Set db = OpenDatabase("rutadebasededatos.mdb")
SQL = "nombredelatabla"
strSQL = "SELECT * FROM nombredelatabla WHERE campousuario LIKE '" & text1.Text & "'"
Set rs = db.OpenRecordset(strSQL)
On Error GoTo error
User = rs("campodelusuario")
pass = rs("campodelpassword")
If text1.Text = User And Text2.Text = pass Then
MsgBox "Usuario y pass correcto..."
End If
error:
If Err.Number = 3021 Then
MsgBox "Usuario o password incorrecto..."
End If
End Sub

espero te sirva, ya lo probe y funciona correctamente
saludos

no olvides tener puesta la referencia de microsoft dao 3.6 o la ke tengas