Código PHP:
Private Sub CargarData()
Dim cad As String = "Database=Pacientes;Data Source=localhost;User Id=root;Password=edmac"
Using cnn As New MySqlConnection(cad)
Dim query As String = "select hora from horas "
Dim cmd As New MySqlCommand(query, cnn)
Dim da As New MySqlDataAdapter(cmd)
Dim dt As New DataTable
Try
Dim Cmd1 As New MySqlCommandBuilder(da)
da.Fill(dt)
DataAgenda.DataSource = dt
cnn.Close()
Catch ex As MySqlException
MsgBox(ex.Message)
End Try
End Using
End Sub
![:-P](http://static.forosdelweb.com/fdwtheme/images/smilies/tongue.png)