Crystal Report - cambiar la ruta de un crystal report

Buenas!
Tengo un pequeño problema....tengo en visual basic .net hecho un form con un cristal reports viewer...tambien tengo un boton "ABRIR" que al dar accede a unos cristal reports ya hechos....
El problema que los cristal reports esos estan hechos cogiendo la ruta de el pc en el que estoy haciendo el programa y no va a ser aqui donde deje el programa....asik necesitaria cambiar esa ruta para k fuera absoluta he intentado hacerlo con un boton y el siguiente codigo:

Private Sub Listados_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

DataSet41.Clear()
OleDbConnection1.ConnectionString = "Data Source=" & System.AppDomain.CurrentDomain.BaseDirectory & "\baseDatosEnAccess.mdb;Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;"
OleDbDataAdapter1.Fill(DataSet41)

End Sub

Private Sub buListado1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buListado1.Click

Try
rd.Load(path & "\Listado1.rpt")
Catch ex As CrystalDecisions.CrystalReports.Engine.LoadSaveReportException
MessageBox.Show("El report no se encuenta en " & path, "ERROR")

Finally

rd.SetDataSource(DataSet41)
crv.ReportSource = rd

End Try
End Sub

no se que variables tienes definidas, pero mira a ver si existe esta

CrxDatabaseTable.Location = "tu ruta de los datos"

Por si vale de ayuda...

Yo creo los informes con Crystal en ficheros .rpt. Luego con VB los agrego a mi proyecto como un DSR. (respeta toda la estructura y formato creado con Crystal). y estos DSR son llamados por VB desde un formulario con un objeto CRViewer1.
En este formulario introduzco el siguiente codigo para cambiar el SET LOCATION de las tablas en tiempo de ejecución. La BBDD es un SQL Server y la forma de conectar es usando un DSN.

Dim ReportGC620I07 As New informeDSR
Dim ConexionGC620I07 As ADODB.Connection

Private Sub Form_Load()
Dim consulta As String
consulta = (SENTENCIA SQL)

Set ConexionGC620I07 = New ADODB.Connection
ConexionGC620I07.ConnectionString = "FILE NAME=" & rutabd & bd

ConexionGC620I07.Open
RegistrosGC620I07.ActiveConnection = ConexionGC620I07

RegistrosGC620I07.CommandType = adCmdText
RegistrosGC620I07.CommandText = consulta

Dim i
Dim name As String

For i = 1 To ReportGC620I07.Database.Tables.Count
name = ReportGC620I07.Database.Tables(i).name
ReportGC620I07.Database.Tables(i).SetLogOnInfo rutabd & bd, tipoBBDD, "SEGE", "SEGE"
ReportGC620I07.Database.Tables(i).SetTableLocation tipoBBDD & ".dbo." & name, "", ""
Next i

' (Si el informe tiene subreport esto es necesario)
For i = 1 To ReportGC620I07.Subreport1.OpenSubreport.Database.Tables.Count
name = ReportGC620I07.Subreport1.OpenSubreport.Database.Tables(i).name
ReportGC620I07.Subreport1.OpenSubreport.Database.Tables(i).SetLogOnInfo rutabd & bd, tipoBBDD, usuario, password
ReportGC620I07.Subreport1.OpenSubreport.Database.Tables(i).SetTableLocation tipoBBDD & ".dbo." & name, "", ""
Next i

ReportGC620I07.SQLQueryString = consulta

.... luego el codigo continua definiendo las propiedades visuales del report.

SALUDOS