Private Sub combobox_clicl()
Dim rsValores As New Adodb.RecordSet, strSql as String
strSql = "SELECT * FROM TABLA WHERE NAME LIKE '" & combobox.text & "'"
rsValores.Open strSql, cadena_conexion_bd, 3, 1
If Not rsValores.EOF Then
textboxcargo.text = rsValores("CARGO")
textboxhorario.text=rsValores("HORARIO")
End If
rsValores.close
Set rsValores = Nothing
End Sub
Espero que te sirva.
Saludos,
Roberto García
