نمايش كادر DatabaseLogon هنگام وصل شدن به ديتابيس اكسس پسورد دار

[MORTEZA66]

سلام به همه دوستان
من تا حالا با كريستال ريپورت فقط با SqlServer2005 كار مي كردم وهيچ مشكلي هم نداشتم فقط با خط زير مانع نمايش كادر لوگين مي شدم

rpt.DataSourceConnections.Item(0).SetConnection(se  rver, database, username, pass)

ولي الان كه با بانك اكسس كار مي كنم و ديتابيس هم پسورد داره هر چي مينويسم با ز كادر DataBaseLogon رو مياره مي خاستم بدونم چطور بايد DataBaseName و ServerName و UserId و Password رو بهش داد طوريكه ديگه اين كادر رو نياره
من كدهاي زير رو كه به ظاهر همشون درست هستند رو امتحان كردم و در زمينه نمايش گزارش و اينجور مسائل هم مشكلي ندارم
آخرين كدي كه امتحان كردم

Dim Tinfo2 As New CrystalDecisions.Shared.TableLogOnInfo()

                    warrantyrpt.Database.Tables("tblmembers").LogOnInf  o.ConnectionInfo.AllowCustomConnection = True



                    Tinfo2.ConnectionInfo.ServerName = Application.StartupPath & "\files\database\dbMaskanMehr.mdb"

                    Tinfo2.ConnectionInfo.DatabaseName = Application.StartupPath & "\files\database\dbMaskanMehr.mdb"

                    Tinfo2.ConnectionInfo.UserID = "admin"

                    Tinfo2.ConnectionInfo.Password = "21484021"

                    For i = 0 To warrantyrpt.Database.Tables.Count - 1

                     warrantyrpt.Database.Tables(i).ApplyLogOnInfo(Tinf  o2)

             Next

كد ديگه

IdCartrpt.SetDatabaseLogon("admin", "2148………………..

كد ديگه

IdCartrpt.DataSourceConnections.Item(0).SetConnect  ion(A…………………..

من تنها مشكل برنامم همينه اگه هر هر كدوم از دوستان لينكي يا مطلبي در اين زمينه دارند خواهش مي كنم سريعتر بذارن

اينم عكس كادر ديتا بيس لوگين

[MORTEZA66]

از پاسخ هاي سريع و كامل همه دوستان ممنون هستم
مشكلم كاملا حل شد يعني حل بود خودم يه اشتباه كو چولو داشتم
كدش هم به صورت زير است

Dim myTable As CrystalDecisions.CrystalReports.Engine.Table

                    Dim myLogin As CrystalDecisions.Shared.TableLogOnInfo

                    For Each myTable In IdCartrpt.Database.Tables

                        myLogin = myTable.LogOnInfo

                        myLogin.ConnectionInfo.Password = "21484021"

                        myLogin.ConnectionInfo.UserID = "admin"

                        myTable.ApplyLogOnInfo(myLogin)

                    Next

                    ''

                    Dim con2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED  B.4.0;Data Source=" + Application.StartupPath & "\files\database\MASKAN.mdb" + ";Jet OLEDB:Database Password=21484021" + ";Persist Security Info=True")

                    con2.Open()

                    Dim dset2 As New DataSet

                    dset2.Dispose()

                    dset2 = New DataSet

                    Dim dap2 As New OleDb.OleDbDataAdapter(sqltext, con2)

                    dset2.Clear()

                    dap2.Fill(dset2, "tblmembers")

                    IdCartrpt.SetDataSource(dset2)

                    con2.Close()

                    frm.ReportViewer1.ReportSource = IdCartrpt

                    '

                    frm.ReportViewer1.ReportSource = IdCartrpt



                    frm.Show()

مشكل اصلي اين بود كه كانكشن رو با جديد ايجاد مي كردم كه نمي كردم و از كانكشني كه در ابتداي برنامه استفاده بود استفاده مي كردم
بازهم از همه دوستان كمال تشكر رو دارم !!!!!!!!!!!!!!!!!!!!!!!!!!