Come risolvere Nessuna query nell'errore del lettore di dati?

Potrebbe mancare un With dichiarazione qui, come With dr1 subito dopo il dr1.Read() linea... ma lo cambierei così:

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