Sådan løses Ingen forespørgsel i datareader-fejl?

Du mangler muligvis en With sætning her, som With dr1 lige efter dr1.Read() linje...men jeg ville bare ændre det sådan her:

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