[ghaner joseph]

حدد مسار القاعدة البينات في c:
lمثال:
Dim CnString As String = _
                     "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                     Application.StartupPath & "C:\Program Files\ghaner\queenghaner\barbara.mdb;Jet OLEDBatabase Password=...........;"
        ProgressBar2.Visible = True

        Dim rpt As New CrystalReport3 : ProgressBar2.Value = 10

        rpt.SetDataSource(dset1) : ProgressBar2.Value = 40

        Dim frm As New Form16 : ProgressBar2.Value = 70

        frm.CrystalReportViewer1.ReportSource = rpt : ProgressBar2.Value = 100

        'كلمة سر قاعدة البيانات 
        frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "......."

        frm.CrystalReportViewer1.Refresh()

        'معاينة التقرير
        frm.Show()

        ProgressBar2.Visible = False