Private Sub gestuti_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Conn As New MySqlConnection("server=localhost;user id=root; password=a;database=pap;")
Dim Sql As String = "Select * from Relog"
Dim Dt As New DataTable
Dim Cmd As New MySqlCommand(Sql, Conn)
Conn.Open()
Cmd.ExecuteNonQuery()
Conn.Close()
Me.combobox1.datasource = Dt
Me.combobox1.displaymember = "Nome"
Me.ComboBox1.ValueMember = "ps"
Me.combobox1.selectedindex = 1
Me.combobox1.selectedindex = 0
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox1.Text = ComboBox1.SelectedValue.ToString
End Sub