Falla en validar Login y Password

[Cuezaltzin]

Hola de nuevo ya corregi mi codigo en base a las sugerencias de aavg pero sigo teniendo el mismo problema por que si pongo el usuario y contraseña correcta me sigue mandando el erro de contraseña inexictente en que estoy mal.

Private Sub Entrar_Click()

Log = Login
Pass = Password

'''''Login y Password son los Text

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

Set cnGeneral = New ADODB.Connection
cnGeneral.Open "DRIVER={SQL Server};SERVER=Edgar;UID=;PWD=;DATABASE=AgendaVB"

Set rs = New ADODB.Recordset
rs.Source = "Select Usuario,Contraseña From Acceso Where Usuario = '" & Log & "'"
rs.Open , cnGeneral

If rs.EOF Then
MsgBox "USUARIO INEXISTENTE", vbInformation
Login.SetFocus

ElseIf Not rs.EOF Then

If Pass = rs.Fields("Usuario") Then
Show
Print Log
Print rs.Fields("Usuario")
Print Pass
Print rs.Fields("Contraseña")

Else
MsgBox "CONTRASEÑA INVALIDA", vbInformation
Password.SetFocus

End If
End If
End If


End Sub