[rochdi191]

السلام عليكم
رمضان كريم
انا جديد في عالم البرمحة بفيجوال بيسك
لم يعمل معي كود الاتصال بقاعدة البيانات و لا تحميل قاعدة البيانات
عند اصافة data source يكون الاتصال عادي
اما عند وصع الكود التالي لا تتصل
Imports System.Data.OleDb
Public Class Form1
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb\add\add.mdb")
    Dim da As New OleDbDataAdapter
    Dim dt As New DataTable

    Sub table_load()
        da = New OleDbDataAdapter("select * from table", add)
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        table_load()
    End Sub
End Class

بارك الله فيكم