Scusate, risolto da me al milionesimo test... in effetti era semplice, però vabbé, step obbligatorio per un newbie.

Per i posteri la soluzione... cambiato questo blocco di codice:

While objReader.Read
If objReader("Username") = strUsr Then
If objReader("Password") = strPwd Then
usrLogin = True
Return usrLogin
Exit Function
End If
End If
End While