Leer DataReader

Hola tengo una consulta este es mi codigo no se si esta mal pero ejecuta
cuando llama al procedimiento almacenado para obtener los datos si los
devuelve pero cuando quiero leer el registro que esta en el data reader me
muestra un mensaje que "Error de lectura porque no hay datos" no se en que
este mal , estoy usando este data reader para comparar el valor con el
cuadro de texto para ver si es igual o no y en base a eso hago la demas
validación, gracias de antemano no se en que parte este mal



Dim MyCommand As SqlClient.SqlCommand

Dim MyDataSet As New DataSet

Try

MyAdapter = New SqlClient.SqlDataAdapter

MyCommand = New SqlClient.SqlCommand("Sp_UsrSelect", Cn)

MyCommand.CommandType = CommandType.StoredProcedure

Dim Prm As New SqlClient.SqlParameter("@CodUsuario", SqlDbType.Char, 15)

Prm.Direction = ParameterDirection.Input

Prm.Value = CBoUser.SelectedValue

MyCommand.Parameters.Add(Prm)

Dim Dr As SqlClient.SqlDataReader = MyCommand.ExecuteReader

If Dr.HasRows = True Then

'hay registro

If Trim(Dr.Item("USR_PASSW")) = Trim(txtPassword.Text) Then '''' EN

PARTE DE AUI ME MUESTRA EL ERROR CUANDO LLEGO A ESTA PARTE DE EJECUCION

TextBox1.Text = Dr.Item("USR_PASSW")

End If

MessageBox.Show("ingrespp")

Dr.Close()

Else

MessageBox.Show("no ingreso")

End If

Dr.Close()

Else

End If