So lösen Sie den Fehler „Keine Abfrage im Datenleser“?

Möglicherweise fehlt ein With Anweisung hier, wie With dr1 direkt nach dem dr1.Read() line...aber ich würde es einfach so ändern:

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