Jak rozwiązać błąd braku zapytania w czytniku danych?

Być może brakuje Ci With instrukcja tutaj, np. With dr1 zaraz po dr1.Read() linia... ale po prostu zmieniłbym to w ten sposób:

Dim id as Integer = dr1(0)
Dim Username As String = dr1(1)