Lo que tienes que hacer es añadir un comando en el crystal no como debes hacer tu todos los campos de la tabla, luego en el visor creado por crystal, a la hora de llamarlo le has de pasar tambien esta SQL, que ya te he dicho que podras editar en el comando una veza hayas echo la conexión, la manare de enlazar el visor con el informe de crystal es de la siguiente forma:
Dim SQLdatospac, SQLdatospre As String
Dim rscristal As ADODB.Recordset
Dim listado As New DENT9603
Dim rslin As ADODB.Recordset
On Error Resume Next
Set db = gCNN
Set rs = New ADODB.Recordset
Set rslin = New ADODB.Recordset
Set rscristal = New ADODB.Recordset
SQLdatospre = " Aqui ira tu SQL necesaria en la qual especificas el valor que quieres que retorne"
rscristal.Open SQLdatospre, db, adOpenStatic, adLockOptimistic
listado.Database.SetDataSource rscristal
Set Visor.crReport = listado
Visor.Show vbModal
espero que te sirva!!! Saludos