¿Cómo resolver el error Sin consulta en el lector de datos?

Es posible que te falte un With declaración aquí, como With dr1 justo después de dr1.Read() línea... pero lo cambiaría así:

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