Try
            Me.OleDbConnection1.ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
            Application.StartupPath & "\Swiss.mdb;Jet OLEDB:Database Password=261177;"
            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 Crpt_All()
            With crConnectionInfo
                .DatabaseName = Application.StartupPath & "\Swiss.mdb"
                .Password = "261177"
            End With
            CrTables = crReportDocument.Database.Tables
            For Each CrTable In CrTables
                crtableLogoninfo = CrTable.LogOnInfo
                crtableLogoninfo.ConnectionInfo = crConnectionInfo
                CrTable.ApplyLogOnInfo(crtableLogoninfo)
            Next
            CrystalReportViewer1.ReportSource = crReportDocument
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try