Visual Basic - Relacionar con Crystal Report

Tengo el visual basic 5.0 que viene con una version del crystal report (4.6). Tengo un formulario con el que quiero sacar un listado entre varios clientes tras pulsar un boton. El problema es que no me ejecuta la consulta que le hago o no acierto con la sintaxis de la instrucción. El código que pongo es:
CrystalReport1.SQLQuery = ("select * from clientes where cod_cliente>='" & cb_desde.Text & "' and cod_cliente<='" & cb_hasta.Text & "'")
CrystalReport1.PrintReport
Tambien probé con la propiedad crystalreport1.selectionformula pero tampoco me funcionó.
Agradezco todo tipo de sugerencia. Gracias.

Ahi tienes el codigo que yo utilizo, primero creo una tabla que tenga la misma estructura que la tabla donde extraigo los datos:
bd=conta.mdb,
tabla=conta94,
tabla creada imprimir=conta_imprimir, hasta ahi bien, el boton de abajo sera el de imprimir.

Private Sub Command2_Click()
'Borra todos los valores almacenados en la tabla utilizada para imprimir
Dim Borrar As Database
'AQUI PON LA RUTA DE T BASE DE DATOS
Set Borrar = OpenDatabase("v:\Conta\Conta.mdb")
Borrar.Execute "delete * from conta_imprimir"
Borrar.Close


'Inserta los valores de la consulta que queremos en la tabla para imprimir
Dim insertar As Database
Set insertar = OpenDatabase("v:\Conta\Conta.mdb")
'puedes poner cualquier consulta con condiciones

'AQUI DEBES PONER LA CONSULTA CON LA TABLA ORIGINAL
Data8.RecordSource = "Select * from conta where codigo='" & Text1.Text & "'" & "and Fecha_apun=#" & DBCombo4.Text & "#"
Data8.Refresh

With Data8.Recordset
.MoveFirst
Do
' AQUI INSERTAS LOS DATOSEN LA TABLA CREADA PARA IMPRIMIR, ESTOS CAMPOS DEBES CAMIARLOS POR LOS TUYOS
insertar.Execute "insert into conta_imprimir(Codigo,Titulo,Fecha_apun,Documento,Linea,Con,Comentario,D,Importe,Debe,Haber,Saldo)" & _
"values ('" & .Fields("Codigo") & "','" & .Fields("Titulo") & "','" & .Fields("Fecha_apun") & "','" & _
.Fields("Documento") & "','" & .Fields("Linea") & "','" & .Fields("Con") & "','" & _
.Fields("Comentario") & "','" & .Fields("D") & "','" & .Fields("Importe") & "','" & _
.Fields("Debe") & "','" & .Fields("Haber") & "','" & .Fields("Saldo") & "')"
.MoveNext
Loop Until .EOF
End With
insertar.Close



'Manda a imprimir la tabla para imprimir
Data8.RecordSource = "select * from conta_imprimir"
Data8.Refresh


If Data8.Recordset.AbsolutePosition = -1 Then
MsgBox "NO HAY DATOS"
Else
imprimir
End If
End Sub

Private Sub imprimir()
CrystalReport1.Destination = 0 'para mandar a impresora
CrystalReport1.ReportFileName = "v:\Conta\conta_imprimir.rpt" 'ubicacion del informe crystal report
CrystalReport1.DiscardSavedData = True 'para que se actualizen los datos
CrystalReport1.WindowState = crptMaximized 'maximiza la ventana
CrystalReport1.Action = 2 'accion de imprimir
End Sub

juntalos y a ver si te funciona, suerte
saludos