Você pode estar faltando um With declaração aqui, como With dr1 logo após o dr1.Read() line... mas eu mudaria assim:

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