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
![[صورة مرفقة: p_548kvdxy1.png]](https://a.top4top.net/p_548kvdxy1.png)
![[صورة مرفقة: image.png]](https://s26.postimg.org/mmbv6ybjt/image.png)