Crystal Report - 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