Как да разрешим грешка в без заявка в четеца на данни?

Може да ви липсва With изявление тук, като With dr1 веднага след dr1.Read() ред... но просто бих го променил така:

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