[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته


أطلعت على المرفق فوجدت أنك تستخدم الربط بالمعالج وليس بالكود

أغلب المبرمجين المتمكنين يستخدمون الربط بالكود ليكون كل شيء أمامهم


ضع هذا الكود في الفورم 3 Form

كود :

Public Class Form3

    Private conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Suppliers.accdb")

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

        Dim da As New OleDb.OleDbDataAdapter("SELECT SupNum, SupName, [Work], Location FROM SuppliersData", conn)
        Dim dt As New DataTable
        da.Fill(dt)

        Dim r As New CrystalReport1
        r.SetDataSource(dt)
        CrystalReportViewer1.ReportSource = r

    End Sub

End Class

السلام عليكم ورحمة الله وبركاته