[mh66]

السلام عليكم

اريد رجاء تعديل الكود التالي بحيث استخدم DAO

اسم قاعدة البيانات مثلا

A.mdb

كود :

Dim conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & Application.StartupPath & "\db1.accdb")

       Dim dp As New OleDbDataAdapter("select * from ETable", conn)

       Dim dt As New DataTable

       dp.Fill(dt)