Public Sub OpenReport(ByVal rptName As String, ByVal rptNr As Integer)
 
     Try
           Call Fill_dsReporting(rptNr)
 
           rep.Load(CurDir() & "\" & rptName & ".rpt")
           rep.SetDataSource(dsReporting)
 
           Call SetConnectionInfo()
 
           CrystalReportViewer1.ReportSource = rep
     Catch ex as Exception
            msgbox(ex.message)
     End Try
 
End Sub
 
Private Sub SetConnectionInfo()
		Dim table As DataTable
		For Each table In rep.Database.Tables
			loginfo = rep.Database.Tables(table.TableName).LogOnInfo
			With loginfo
				.ConnectionInfo.ServerName = m_DAL.Server
				.ConnectionInfo.DatabaseName = "MyDatabase"
				.ConnectionInfo.UserID = "sa"
				.ConnectionInfo.Password = "xxxxxxxxx"
			End With
			rep.Database.Tables(table.TableName).ApplyLogOnInfo(loginfo)
		Next
	End Sub