Completar formularios

[luzstellan]

HOla
Muchas gracias ya resolvi mi problema y lo que realice fue lo siguiente

SQL = "Select * From usuarios WHERE usuario = '" & ComboBox1.Text & "'"

If Conectar(SQL) Then


Dim iRow As Integer = Ds.Tables("MS").Rows.Count

If iRow = 1 Then
TextBox1.Text = Ds.Tables("MS").Rows(0).Item("cedula").ToString
TextBox2.Text = Ds.Tables("MS").Rows(0).Item("nombre").ToString
TextBox3.Text = Ds.Tables("MS").Rows(0).Item("direccion").ToString
TextBox4.Text = Ds.Tables("MS").Rows(0).Item("usuario").ToString
TextBox5.Text = Ds.Tables("MS").Rows(0).Item("pass").ToString
ComboBox2.Text = Ds.Tables("MS").Rows(0).Item("nivel")
CheckBox1.Checked = Ds.Tables("MS").Rows(0).Item("estado_usu")
'CheckBox2.Checked = Ds.Tables("MS").Rows(0).Item("estado_usu")

End If
End If

gracias.....