[abdhassan]

السلام عليكم
يوجد لديك مشكلة لانك لم تحدد مسار قاعدة البيانات

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared




    Dim cc1 As New ReportDocument
    Dim crtableLogoninfos As New TableLogOnInfos
    Dim crtableLogoninfo As New TableLogOnInfo
    Dim crConnectionInfo As New ConnectionInfo
    Dim CrTables As Tables
    Dim CrTable As Table


       With crConnectionInfo
           ' .ServerName = spaths
           .DatabaseName = spaths & "db1.mdb"
           .UserID = ""
           .Password = ""
       End With

       

       CrTables = cc1.Database.Tables
       For Each Me.CrTable In CrTables
           crtableLogoninfo = CrTable.LogOnInfo
           crtableLogoninfo.ConnectionInfo = crConnectionInfo
           CrTable.ApplyLogOnInfo(crtableLogoninfo)
       Next