Bagaimana mengatasi Tidak ada kueri dalam kesalahan datareader?

Anda mungkin kehilangan With pernyataan di sini, seperti With dr1 tepat setelah dr1.Read() baris ... tapi saya hanya akan mengubahnya seperti ini:

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