Initialize the new database connection for the new data source
Dim DbConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyDatabase.mdb")
Initialize a new ReportDocument class variable
Dim crReportDocument As New ReportDocument
Initialize the report you are going to use, renaming CrystalReport1 to the name of your report
Dim MyReport As New CrystalReport1
Set the new datasource for the ReportDocument and load the report
crReportDocument.SetDataSource(dbconn)
crReportDocument.Load(MyReport)