validar contraseña usando ADO

[rositafresita]

Hola a todos, espero que alguien me pueda ayudar.
Lo que quiero hacer es validar una contraseña que es escrita en un cuadro de texto, para hacer la comparación utilizo un contro ADO q se conecta la la tabla1 que tiene los campos "nombre de usuario","contraseña","tipo de usuario" y "nombre". Lo que quiero hacer es que me mande un mensaje si la contraseña es válida o no y que dependiento del "tipo de usuario" sea el formulario que aparezca, ya que hay 3 tipos de usuario y un formulario para cada tipo.
Para validar la contraseña intenté con una función que va de la siguiente forma, el problema es que no funciona
Public Function EXISTE(ADO As Adodc, REG As String, LLAVE As String)
Dim criterio As String
criterio = LLAVE & " LIKE '" & REG & "'"
On Error Resume Next
ADO.Recordset.MoveFirst
ADO.Recordset.MoveFirst
'ADO.Recordset.MoveNext
If Not ADO.Recordset.EOF Then
ADO.Recordset.Find criterio
End If
If ADO.Recordset.EOF Then
ADO.Recordset.MoveLast
EXISTE = 0
Exit Function
End If
EXISTE = 1
End Function


Esta función la mando llamar con la condición de que si existe es igual a 1 me mande el mensaje de que existe y si es igual a 0 pues que no existe, pero en ningún caso me envía el mensaje

De antemano gracias