データリーダーエラーでクエリがありませんを解決する方法は？

Withが見つからない可能性があります ここでのステ​​ートメント、たとえばWith dr1 dr1.Read()の直後 行...しかし、私はそれを次のように変更します：

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