Try
            Dim objReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
            Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
            Dim strAlamatReport As String = Application.StartupPath & "\Report2.rpt"
            objReport.Load(strAlamatReport)

            With ConInfo.ConnectionInfo
                .DatabaseName = Application.StartupPath & "\Db_moora.mdb"
                .IntegratedSecurity = True
            End With
            For intCounter As Integer = 0 To objReport.Database.Tables.Count - 1
                objReport.Database.Tables(intCounter).ApplyLogOnInfo(ConInfo)
            Next
            objReport.RecordSelectionFormula = ""
            CrystalReportViewer1.ReportSource = objReport
            CrystalReportViewer1.SelectionFormula = "{TblHasil.Periode} = " & Menuutama.ToolStripComboBox1.Text.Substring(8) & ""
            CrystalReportViewer1.RefreshReport()
            CrystalReportViewer1.Show()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try