Try
' Obtenemos un objeto DataRow correspondiente con
' el ID escrito en un control TextBox
'
Dim row As DataRow = Buscar(ComboBox1.SelectedItem)
If (row Is Nothing) Then
MessageBox.Show("No hay registros que coincidan con el ID especificado.")
' Abandonamos el procedimiento
Return
End If
' Rellenamos los correspondientes controles TextBox
' con los datos existentes en el objeto DataRow
' obtenido.
Txtnombres.Text = Convert.ToString(row("Nombres"))
Txtapellidos.Text = Convert.ToString(row("Apellidos"))
Txtdepen.Text = Convert.ToString(row("Dependencia"))
Txtgenero.Text = Convert.ToString(row("Género"))
CbxJL.Text = Convert.ToString(row("JornadaLab"))
Txtcargo.Text = Convert.ToString(row("Cargo"))
Txtcorreo.Text = Convert.ToString(row("Correo"))
Txtusuario.Text = Convert.ToString(row("NUsuario"))
Txtpass.Text = Convert.ToString(row("Contraseña"))
CheckBox1 .Checked =
Catch ex As Exception
' Se ha producido un error
MessageBox.Show(ex.Message)
End Try