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

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

ملحوظة: وجدت في المنتدى درس يوضح طريقة الربط للأستاذ/ محمد فؤاد جزاه الله خيرا ولكن للأسف لم يعمل معي

فهل من معين يا اخوان

أنا كتبت هذا الكود

        Try
            Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= StDb.mdb;Jet OLEDB:Database Password= mmnet")
            Dim crtableLogoninfos As New TableLogOnInfos()
            Dim crtableLogoninfo As New TableLogOnInfo()
            Dim crConnectionInfo As New ConnectionInfo()
            Dim CrTables As Tables
            Dim CrTable As Table
            Dim crReportDocument As New rptstaccount()
            With crConnectionInfo
                .DatabaseName = Application.StartupPath & "\StDb.mdb"
                .Password = "mmnet"
            End With
            CrTables = crReportDocument.Database.Tables
            For Each CrTable In CrTables

                crtableLogoninfo = CrTable.LogOnInfo
                crtableLogoninfo.ConnectionInfo = crConnectionInfo
                CrTable.ApplyLogOnInfo(crtableLogoninfo)
            Next
            crst.ReportSource = crReportDocument
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.crst.RefreshReport()

وعند استدعاء التقرير ظهرت هذه الرسالة

علما بأني وضعت كلمة المرور في الـ ODBC كما ذكر الأستاذ جزاه الله خيرا

وعندما حاولت أكتب كلمة المرور مرة أخرى ظهرت هذه الرسالة

ما أدري ما سبب المشكلة بالضبط أرجو إعلامي لأني بحثت كثيرا في أكثر من موقع ربنا يسهل وأجد الرد في هذا المنتدى فأنا استفدت منه كثيرا جدا في هذا المجال

مشكورين جميعا

للرفع ما زالت المشكلة مستمرة

أخي الفاضل

تابع الرابط جيداً فربما يكون فيه الفائده باذن الله

/index.php?showtopic=122916