You can use this code. Which is working in vs2005 so it may be work in 2010.
Dim rpt As New ReportDocument()
Dim DPath As String = Application.StartupPath & "\MyData.mdb"
rpt.Load(Application.StartupPath & "\Reports\rptInvoice.rpt")
For Each connection As IConnectionInfo In rpt.DataSourceConnections
rpt.DataSourceConnections(connection.ServerName, connection.DatabaseName).SetConnection(DPath, "", "", "")
Next
rpt.RecordSelectionFormula = "{InvoiceReport.JobListID}=" & JobAndTrackingMDI.GetJobID & ""
If (rpt.Rows.Count <= 0) Then
MsgBox("Record does not Exists.")
Exit Sub
End If
rpt.Refresh()
CRVInvoice.ReportSource = rpt
This Change DataBase Location to your location DPath. So that you can solve database location error. And Solve your Problem.
Thank You.