Crystal Report - Problemas con Crystal Report, SQL Server y Visual

Voy a ser un poco más específico:

Dim BaseSql As ADODB.Connection
Dim ConCrystal As String
Dim StrConexion As String

'**********************************
'Crear la conexión
'**********************************
Set BaseSql = New ADODB.Connection

StrConexion = "provider=SQLOLEDB; data source=" & v_SQLServ & ";initial catalog=" & v_SQLBdD & ";uid=" & v_SQLUser & ";pwd=" & v_SQLPassw

BaseSql.Open StrConexion

ConCrystal = "DSN=SQLGAP;UID=" & v_SQLUser & ";PWD=" & v_SQLPassw & ";DSQ=" & v_SQLBdD

'************************************************************
'El informe está creado con los campos de una tabla temporal,
'por lo cual, su contenido varía de un informe a otro.
'
' basesql.execute "delete from tabla_temporal"
'
' basesql.execute "insert into ..."
'************************************************************

Cr1.Reset
Cr1.Connect = ConCrystal
Cr1.WindowTitle = "Titulo del Informe"
Cr1.ReportFileName = "informe.rpt"
Cr1.WindowState = crptMaximized
Cr1.Destination = crptToWindow
Cr1.PrintReport