Gracias ha todos;
Lo hice así y me va perfecto.   
Código vb.net:
Ver originalDim reader As SqlDataReader
 
            Try
               Using conn
                    conn.Open()
                    With comm
                        reader = .ExecuteReader()
                        While reader.Read()
                            TxtNombreApellidosLG.Text = reader.GetValue(0)
                            TxtDepartamentoLG.Text = reader.GetValue(1)
                        End While
                        'TxtNombreApellidosLG.Text = .ExecuteScalar()
                        .Dispose()
                    End With
                End Using
            Catch ex As Exception
                'mensaje("Error en BD" & Chr(13) & Chr(13) & ex.Message)
            Finally
                If conn.State = ConnectionState.Open Then
                    conn.Dispose()
                End If
            End Try
  
  
