[vbnet]

.....

مشكلتك كانت بنقص مسافة واحدة
الخطأ لديك في كلمة "datasource" والصحيح أنها كلمتين بينهما مسافة "data source"

الكود مجرب ويعمل

كود :

Imports System.Data.OleDb

Public Class Form1

    Public con1 As New OleDbConnection(" Provider= Microsoft.ACE.OLEDB.12.0; Data Source= |DataDirectory|\dareenpark.accdb ")
    Public da As New OleDbDataAdapter
    Public dt As New DataTable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try

            da = New OleDbDataAdapter(" select * from table1", con1)
            da.Fill(dt)
            dgv.DataSource = dt

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

End Class

إذا استمرت المشاكل تأكد من أن لديك أوفيس 2007 أو أحدث
إن لم يكن لديك، (على الأقل) قم بتركيب محرك قاعدة البيانات التالي
Microsoft Access Database Engine 2010 Redistributable



جرب المثال المرفق في المشاركة التالية

وضع الصلاحيات vb وربطها بقاعدة بيانات اكسس #4

.....