[asemshahen5]

بسم الله الرحمن الرحيم .
أولا استدع فضاء الاسماء :

PHP كود :

Imports System.Data.OleDb 


ليصبح الكود كاملا كالتالي :

PHP كود :

Imports System.Data.OleDb
Public Class Form1
    Dim Conne_2019 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=قاعدة البيانات.accdb;Jet OLEDB:Database Password=;")
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Me.ComboBox1.Text = String.Empty Then
            Me.TextBox1.Text = String.Empty
        End If
        Try
            Dim Cmd As OleDbCommand = New OleDbCommand()
            Dim Rreader As OleDbDataReader = Nothing
            If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
            Conne_2019.Open()
            Dim Qquery As String = " SELECT * From الجدول Where الاسم = '" & ComboBox1.Text.Trim & "'"
            Cmd = New OleDbCommand(Qquery, Conne_2019)
            Rreader = Cmd.ExecuteReader()
            While Rreader.Read
                If Rreader IsNot Nothing Then
                    Me.TextBox1.Text = Rreader.Item("العمل")
                End If
            End While
            If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
        Catch ex As OleDbException
            MessageBox.Show("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)
        End Try
    End Sub
End Class 


مع مراعاة تغيير اسم الجدول و اسم العامود بما يتناسب مع عملك .