[سعود]

PHP كود :

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