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

