[مصمم هاوي]

كود :

الفكرة أنه لديك
ListBox
فيه أسماء الجداول الموجودة في قاعدة البيانات
(Access).
واريد لما تضغط على أي جدول في الـ  ListBox، يتم تنفيذ استعلام SELECT * FROM tableName، ونربط النتيجة بالـ DataGridView.

هذه محاولة عن طريق. الجوال وربما توجد بعض الأخطاء
نفرض أن اسم الفورم Form1

Imports System.Data.OleDb

Public Class Form1

   ' الاتصال بقاعدة البيانات ... عدل المسار حسب ما هو عندك

   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DB1.accdb;")

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' جلب أسماء الجداول في القاعدة وعرضها في ListBox
       con.Open()
       Dim dt As DataTable = con.GetSchema("Tables")
       For Each row As DataRow In dt.Rows
           If row("TABLE_TYPE").ToString() = "TABLE" Then
               ListBox1.Items.Add(row("TABLE_NAME").ToString())
           End If
       Next
       con.Close()
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       If ListBox1.SelectedItem IsNot Nothing Then
           Dim tableName As String = ListBox1.SelectedItem.ToString()
           Dim da As New OleDbDataAdapter("SELECT * FROM [" & tableName & "]", con)
           Dim ds As New DataSet
           da.Fill(ds)
           DataGridView1.DataSource = ds.Tables(0)
       End If
   End Sub

End Class