giustamente:

questa

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

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