[حريف برمجة]

كود :

Dim dp As New oledbDataAdapter("select * from Alcatel", conn)

        Dim ds As New DataSet

        dp.Fill(ds)

        DataGridView1.DataSource = ds.Tables(0)

conn = متغير الاتصال بالداتا بيز .

هذا الكود يعرض لك جدول Alcatel 

لعرض جدول آخر قم بتغيير Alcatel إلى اسم الجدول الآخر .