Crystal Report - Consulta no funciona

Hola

Estoy generando un reporte, uso vb6, Sql Server y CR9, en visual uso un Dsr para contener el reporte, me conecto al servidor (Create new conection- Ado) y trabajo con 4 tablas que tienen links entre si.

en visual basic, filtro con un combobox

y uso lo sgte. para generar el reporte :

Dim SQL As String
Dim strConnect As String


Set Connection = New ADODB.Connection
Set adoRS1 = New ADODB.Recordset

' Open the connection
strConnect = ConectaSql
mConnection.Open strConnect
SQL = ConsultaSQL & "WHERE = '" & form1.cbo.text & "'"

adoRS1.Open SQL, mConnection, adOpenDynamic, adLockBatchOptimistic
Report.Database.SetDataSource adoRS1

Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault


Hago todo esto y Nada resulta

- Puede ser que no me tome la consulta
- Que no encuentre la base de datos

Como saber eso

Gracias