Visual Basic - ingresar contraseña

tengo provemas apara acer haceder al sistema no me coge las variables y no me pasa al siguiente formulario de ante mano grasias por su ayuda esta mi programacion


Private Sub cmdentrar_Click()
Dim dato, criterio, pass, tipo As String
dato = txtclave.Text
criterio = "Clave='" & dato & "'"
RsAcceso.Find criterio, , , 1
pass = RsAcceso.Fields("Clave")
tipo = RsAcceso.Fields("TipoUsuario")
If combousuario.Text = tipo And UCase(txtclave.Text) = pass Then
frmprincipal.Show
Else
cla = cla + 1
If cla = 3 Then
MsgBox "La contraseña no es válida..." & Chr(13) & Chr(13) & "¡VENCIÓ EL NÚMERO DE INTENTOS!", vbCritical, "Error - Intento " & Str(cla)
End If
MsgBox "La contraseña no es válida. Vuelva a intentarlo", vbCritical, "Error - Intento " & Str(cla)
txtclave.SetFocus
SendKeys "{Home}+{End}"

End If

End Sub

mira en esta página:
www.rae.es
No sé si te solucionarán tu problema, pero al menos te enseñarán a escribir.

Jajaja mirad la primera línea.