Crystal Report - Cambiar Servidor a traves de Visual Basic

Buenas tardes, tengo un reporte en CR 8 que lo llamo desde VB6, necesito pasarle la cadena de conexion para cambiarlo de servidor, pues el reporte me trae un resumen de un cliente, y tengo clientes tanto en diferentes instancias como servidores.

gracias

Dim cCrApl As CRAXDRT.Application
Dim cCrRep As CRAXDRT.Report
Dim cTab As CRAXDRT.DatabaseTable
Dim MotordeDatos As String
' en el comando o funcion imprimir

Set cCrApl = New CRAXDRT.Application
Set cCrRep = cCrApl.OpenReport("c:\Reportes\Ejemplo.rpt")
MotordeDatos="SQL"

For Each cTab In cCrRep.Database.Tables
Select Case Trim(MotordeDatos)
Case "SQL"
cTab.SetLogOnInfo "NombreDeServidor", "NombreBaseDatos","NombreUsuario", "Contraseña"

Case "JET" 'access
cTab.Location = "Ruta y nombre de archivo MDB"
cTab.SetSessionInfo "Admin", "" + Chr(10) + "ContraseñaBasededatos"
End Select
Next
'imprimir
cCrRep.SelectPrinter Printer.DriverName, Printer.DeviceName, Printer.Port
'cCrRep.PaperOrientation = orientación de papel
'cCrRep.PaperSize = tipo de papel
'cCrRep.PrinterSetup 0 ver configuración de impresora
'cCrRep.RecordSelectionFormula = 'formula de seleccion de registros
'Cr1 es el control de impresión CrViewer
Cr1.ReportSource = cCrRep

Cr1.ViewReport
' o cCrRep.PrintOut True 'para enviar a la impresora directamente

Espero le sirva

Diego M Romero
[email protected]