Jak vyřešit Žádný dotaz v chybě čtečky dat?

Možná vám chybí With zde, například With dr1 hned za dr1.Read() linka...ale já bych to jen změnil takto:

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