[VB6] Stringa SQL - comparazione non riuscita

[StegcO]

Mi da errore nella stringa SQL, probabilmente è sbagliata la sintassi di comparazione tra il Campo del DB e la Variabile, ma ho provato di tutto e non va..

qualche idea?

Option Explicit

Public Autenticato As Boolean

Dim Con As ADODB.Connection
Dim StringaConn As String
Dim query As String
Dim Rst As ADODB.Recordset
Dim UserName As String
Dim Password As String

Sub Form_Load()

Autenticato = False

Set Con = New ADODB.Connection
Set Rst = New ADODB.Recordset

StringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\LucaCo\Desktop\Progetti\Gestione IT Zara\it_works.mdb;Persist Security Info=False"
Con.Open StringaConn

End Sub

Private Sub cmd_log_in_Click()

UserName = LCase(txt_username.Text)
Password = LCase(txt_password.Text)

Set Rst = Con.Execute("SELECT * FROM Utenti WHERE Username=Username AND Passwor=Password ")

If Rst.EOF Or Rst.BOF Then
    MsgBox "Errore LogIn!", vbExclamation
    Else
    If txt_password.Text = Rst.Fields("Passwor").Value Then
        Autenticato = True
        MsgBox "LogIn Eseguito!", vbExclamation
    End If
End If

End Sub