Hur löser jag Ingen fråga i datareader-fel?

Du kanske saknar en With uttalande här, som With dr1 direkt efter dr1.Read() linje...men jag skulle bara ändra det så här:

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