Public Class Form1
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
Dim con As New OleDb.OleDbConnection(str)
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter("select * from tb", con)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
da.Fill(dt)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "tn"
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox1.Text = dt(sender.selectedindex)(2)
End Sub
End Class
