doppio errore quindi:

la query che ti ho scritto io non è giusta perchè Username (scritto nella tua query e riportato da me) in realtà è UserName (vb6 è case sensitive)

quindi diventa

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