Ayuda con codigo de Password

[shunkhi]

Hola, mira el codigo lo quise mas o menos acomodar para que funcione con el Data... este es el codigo para el ADO

Private Sub cmdaceptar_Click()
rsempleado.MoveFirst
rsempleado.Find "nombre='" & LCase(txtnom) & "'"
If Not rsempleado.EOF Then
If rsempleado.Fields(5) = LCase(txtpassword) Then
Unload Me
frmprincipal.Show
frmprincipal.StatusBar1.Panels(1).Text = "Usuario del Sistema: " & txtnom
Else
MsgBox "Contraseña Incorrecta", vbExclamation, "Aviso"
txtpassword = ""
txtpassword.SetFocus
End If
Else
MsgBox "Usuario no Autorizado", vbExclamation, "Aviso"
txtnom = ""
txtpassword = ""
txtnom.SetFocus
End If
End Sub

No se mucho de visual, pero si alguien me ayuda a hacerlo funcionar con el Data, estaria muy agradecido!!! Gracias..