validar contraseña usando ADO

[cleptomano]

'Inserta dos textbox y un commandbutton
Private Sub Command1_Click()
Dim R1 As New ADODB.Recordset
Dim Conexion As Variant, Sqlval As Variant
Dim Usuario As Variant, Contraseña As Variant, Permisos As Variant
Conexion = "tu conexion"
Sqlval = "select usuario,contraseña,tipo_de_usuario from usuarios where usuario=" & "'" & Text1.Text & "'"
R1.Open Sqlval, Conexion, adOpenStatic, adLockPessimistic
If Not (R1.EOF) Then
Usuario = R1.Fields(0)
Contraseña = R1.Fields(1)
Permisos = R1.Fields(2)
If Text2.Text = Contraseña Then
MsgBox "Validacion correcta", vbInformation, "Correcto"
If Permisos = "opcion1" Then
'Escribe el codigo que se ejecutara si se cumple con la condicion
'Form1.show
ElseIf Permisos = "opcion2" Then
'Escribe el codigo que se ejecutara si se cumple con la condicion
'Form2.show
ElseIf Permisos = "opcion3" Then
'Escribe el codigo que se ejecutara si se cumple con la condicion
'Form3.show
End If
Else
MsgBox "Contraseña incorrecta", vbCritical, "Error"
End If
Else
MsgBox "Usuario no registrado", vbCritical, "Error"
End If
End Sub

'Recuerda que debes de hacer referencia a Microsoft ActiveX Data objets 2.x library