Comment résoudre l'erreur Aucune requête dans le lecteur de données ?

Il vous manque peut-être un With déclaration ici, comme With dr1 juste après le dr1.Read() ligne... mais je le changerais simplement comme ceci :

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