E volendo infierire ..... mi verrebbe da dire:
Ma il codice che hai scritto lo hai inventato? E' un nuovo linguaggio di programmazione?

Se dentro la variabile UserName c'è scritto
codice:
Username = "SELECT Username FROM Utenti WHERE" & username
per quanto sbagliato possa essere .... non sarà mai vera la condizione:
codice:
If Trim(Username.Text).Length = 0 Then
ti sembra?

Ciao