Código PHP:
Private Sub CargaCombo()
Dim cad As String = "Database=Pacientes;Data Source=localhost;User Id=root;Password=edmac"
Dim query As String = "select id1, apellidosnombres from apellidos order by apellidosnombres"
Dim cnn As New MySqlConnection(cad)
Dim da As New MySqlDataAdapter(query, cnn)
Dim dt As New DataTable
da.Fill(dt)
DataAgenda.DataSource = dt
Paciente.DisplayMember = "apellidosnombres"
Paciente.ValueMember = "id1"
cnn.Close()
End Sub
De antemano muchas gracias