How will you define in Visual Basic a report having two DSN Definitions?

For Example my report calls:

DSN MDB File Called

Main -> calling C:\Storage\MainRec.MDB
Transaction -> calling C:\Storage\TransactionRec.MDB

This is my Code:

' With this code I get an error stating that it cannot find a specific table from a certain
' DSN

With CRep

' ***** This part here I know is the problem
.Connect = "DSN=Main;uid=Admin;pwd=;dsq=;"
' *****

.ReportFileName = App.Path & "\Reports\PurchaseOrderReport.RPT"
.WindowTitle = "Purchase Order Report for " & Format(Date, "MMMM DD, YYYY")
.Action = 1
end with