Buscar en una tabla de MySQL

[Alwar]

Todo Entero:
Dim Usuario As String
Dim Password As String
Usuario = TxtUsuario.Text
Password = TxtContraseña.Text

Dim rUsuarios As ADODB.Recordset

On Error GoTo ManejoError
CrearConexion
DoEvents
'Si la conexion no esta establecida no muestra nada
If CrearConexion = False Then
MsgBox "Error, No hay Conexion", vbOKOnly + vbCritical
Exit Sub
End If

Set rUsuarios = New ADODB.Recordset
Set rUsuarios = oConexion.Execute("SELECT * FROM b2l1640_DataAlwar.Usuarios")
With rUsuarios
.Find "Nick = " & Usuario
If rUsuarios!Password = Password Then
MsgBox "Bienvenido " & Usuario, vbOKOnly + vbInformation, "Apogeus One"
UsLogIn = True
UsuarioLogIN = Usuario
frmLogin.StBar.Panels(1) = "Hola " & Usuario
Unload Me
Else
MsgBox "Contraseña Incorrecta o usuario no encontrado", vbOKOnly + vbCritical, "Apogeus One"
Exit Sub
End If
End With

rUsuarios.Close
Set rUsuarios = Nothing

Exit Sub
ManejoError:
ShowError "LogIn", "LeerUsuarios"
End Sub