Hoe op te lossen Geen query in datareader-fout?

Mogelijk mist u een With statement hier, zoals With dr1 direct na de dr1.Read() regel... maar ik zou het zo veranderen:

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