Falla en validar Login y Password

[Cuezaltzin]

Holo tengo mi programita en el cual estoy intentando poner un Form para autentificar a los usuarios, lo que hace es que si el Usuario no existe te manda un error hasta aqui esta bien, pero cuando le escribo el Usuario y Contraseña correctos me marca que no existe esa contraseña. Alguien me puede ayudar y decirme en que estoy mal. Por su ayuda GRACIAS.

Dim cnGeneral As ADODB.Connection
Dim rsGeneral As ADODB.Recordset
Dim Probar As String

Private Sub Entrar_Click()

Dim Prrobar As String

Login = Login
Passwor = Password

If Login = "" Then
MsgBox "ERROR DEBE INTRODUCIR UN LOGIN", vbInformation
Login.SetFocus
ElseIf Password = "" Then
MsgBox "ERROR DEBE INTRODUCIR UNA C0ONTRASEÑA", vbInformation
Password.SetFocus
ElseIf Login <> "" And Password <> "" Then

Set DataGrid1.DataSource = Adodc1
With Adodc1

.ConnectionString = "DRIVER={SQL Server};SERVER=Edgar;UID=;PWD=;DATABASE=AgendaVB"
.RecordSource = "Select Acceso.Usuario,Acceso.Contraseña From Acceso Where Acceso.Usuario = '" & Login & "' "
.Refresh
.Visible = False

End With

If Adodc1.Recordset.RecordCount <= 0 Then
MsgBox "USUARIO INEXISTENTE", vbInformation

Else
Probar = Adodc1.Recordset.Fields!Contraseña

If Password = Probar Then
Inicio.Show
Else
MsgBox "CONTRASEÑA NO VALIDA", vbInformation
End If

End If

End If

End Sub