[سعود]

تفضل كلاس الفورم الجديد

PHP كود :

Public Class saud

    Dim str As String = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Application.StartupPath & "\a.mdb"
    Dim con As New OleDb.OleDbConnection(str)
    Dim ds As DataSet
    Dim da As OleDb.OleDbDataAdapter


    Private Sub gd()
        ListBox1.DataSource = Nothing
        ListBox1.Items.Clear()

        ds = New DataSet
        da = New OleDb.OleDbDataAdapter("select * from tb1,tb2", con)
        da.Fill(ds, "tb1")
        da.Fill(ds, "tb2")

        For Each dt As DataTable In ds.Tables
            ListBox1.Items.Add(dt.TableName)
        Next

    End Sub

    Private Sub saud_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        dg.DataSource = Nothing
        dg.Rows.Clear()
        Dim d As New DataTable(sender.text)
        Dim cm As New OleDb.OleDbCommand("", con)
        cm.Parameters.Clear()
        cm.CommandText = "select * from " & d.TableName & ""
        If con.State = ConnectionState.Closed Then con.Open()
        d.Load(cm.ExecuteReader)

        dg.DataSource = d
    End Sub
End Class 


المثال مرفق