Visual Basic - String Connection Crystal Report

Hoal amigos,

Pueden ayudarme quisiera ver como puedo realizar una coneccion a una base de datos pero a través de un string connection, para desplegar un crystal report, hasta ahora lo hago con un ODBC, como en l siguiente ejemplo:

Dim crRept
Dim crApp
Dim Tipo, Sin, x, aux

stop

set crApp = CreateObject("CrystalRuntime.Application")
set crRept = CreateObject("CrystalRuntime.Report")
set crRept = crApp.OpenReport(application.GlobalInfo.LibraryPath &"\siniestralidad.rpt")
Tipo = 4
CRept.Database.LogOnServer "p2sodbc.dll", "PROD", "real", "crmdfff", "1sdfasdf"
crRept.RecordSelectionFormula = "{tmp_siniestralidad.id_tmp}=27380"
crRept.FormulaFields.Item(4).Text = "'01/12/2005'"
crRept.FormulaFields.Item(5).Text = "'10/30/2007'"
crRept.FormulaFields.Item(10).Text = "'1'"
crRept.FormulaFields.Item(9).Text = "''"
crRept.FormulaFields.Item(8).Text = "'DOLARES'"
crRept.FormulaFields.Item(30).Text = "'Asegurado:'"
crRept.FormulaFields.Item(31).Text = "'NESTLE ECUADOR S.A'"
CRRept.DiscardSavedData
CRViewer1.ReportSource = crRept
crRept.VerifyOnEveryPrint = True
CRViewer1.DisplayGroupTree = False
CRViewer1.EnableExportButton = True
CRViewer1.ViewReport
CRViewer1.Zoom 100

Espero puedan ayudarme por que no se como conectarme con un string connection

Hola,
has probado con utilizar una base de datos de paso con tablas auxiliares que alojen los campos que quieras mostrar en tu reporte y luego cargar el reporte de una forma un poco mas simple?.
ej:
Dim BaseImp As ADODB.Connection
Set BaseImp = New ADODB.Connection
BaseImp.ConnectionString = ConexionImpresion
BaseImp.CursorLocation = adUseClient
BaseImp.Open
BaseImp.Execute ("Delete from tabla where campo='" & campo & "'")
BaseImp.Execute ("Insert Into tabla..........")

y luego ...

Dim Cr As CrystalReport
Set Cr = me.CrystalReport1 'control
Cr.WindowHeight = 0
Cr.WindowWidth = 0
Cr.WindowTop = 0
Cr.WindowLeft = 0
Cr.ReportFileName = "reporte.rpt"
Cr.SelectionFormula = "{tabla.campo}='" & campo & "'" '
Cr.DataFiles(0) = RutaBaseImpresion ' rutabasededatos

no sé si te sirva de algo pero ahí va.
Saludos.