Visual Basic.NET - sqldatareader a variable

Hola a todos,

soy nuevo en vb net 2015 y estoy intentando realizar un form en el cual hago login e intento capturar el valor del id del usuario mediante un sqldatareader, el login funciona bien pero no se como asignar a la variable repnr e' valor de la columna "ID" de la tabla, alguien puede orientarme?

Mi código es este :

Private Sub BtnOK_Click(sender As Object, e As EventArgs) Handles BtnOK.Click
Dim Con As New SqlClient.SqlConnection("Server=MISERVER\VKSQL2008;Database=MIDB;Uid=test;Pwd=12345;")
Con.Open()
Dim Dr As SqlClient.SqlDataReader
Dim Cmd As New SqlClient.SqlCommand("Select * From [dbo].[Users] Where USUARIO='" + TxtUser.Text + "'" + "AND PASSWORD='" + TxtPassword.Text + "'", Con)
Dr = Cmd.ExecuteReader
If Dr.Read Then
Do While Dr.Read
If Dr.Item("USUARIO").ToString = TxtUser.Text Then MsgBox("SI")
Loop
Dr.Close()
Dim Usuario As String
Usuario = UCase(TxtUser.Text)
MsgBox("Bienvenido!! " & Usuario & " " & RepNr, MsgBoxStyle.Information, "VASOKING.Login")
FrmMenu.Show()
Me.Close()
Else
MsgBox("Conexión Fallida!!")
End If
Con.Close()
End Sub

Es lo mismo que estás haciendo pero con un ligero cambio

El índice 0 correspondería al IdUsuario, y el 1 al nombre, eso siempre y cuando el tipo de dato sea string para id IdUsuario, si es de tipo entero, sería Dr.GetInt32(0).

Saludos cordiales,