Error Crystal Report

[shasho]

Hola a todos,
estoy haciendo un pequeño informe con visual basic 6 y crystal report 8, pero no logro que funcione.
Lo primero que he echo ha sido crear un informe con los datos que quiero que me salgan en el informe para luego llamarlo desde la aplicacion vb. El codigo que tengo para que me salga el informe es este:

============================================
Private Sub informe()
'On Error GoTo ErrorHandalar
On Error GoTo e
Dim StrSQL As String

StrSQL = "Select numelab From tblelaboracion order by numelab"

With CrystalReport1
.ReportFileName = App.Path & "\inf.rpt"
.Connect = App.Path & "\prueba.mdb"
.DiscardSavedData = True
.RetrieveDataFiles
.ReportSource = 0
.ReportTitle = "Informe Detalles Inventario"
.Destination = crptToWindow
.PrintFileType = crptCrystal
.WindowState = crptMaximized
.WindowMaxButton = False
.WindowMinButton = False
.SelectionFormula = StrSQL
.Action = 1
End With

Exit Sub

e:
MsgBox Err.Description
MsgBox "No Hay Impresora Predeterminada"

End Sub
================================================== =
Cuando lo ejecuto me devuelve este error:

Error en la formula <Record_Selection>
Aquí se espera un número, monto monetario, booleano, fecha,hora, fecha-hora o cadena.

La verdad que este error me está volviendo loco.

Gracias de antemano.

Saludos.

[Kruzado]

viejo selectionformula hace referencia a los registros que quieres ver, crea un filtro en base a la condicion que le pongas

en tu variable strsql tienes una cadena de conexion a una bd ("Select numelab From tblelaboracion order by numelab")

selectionformula debe tener otro tipo de parametros, por ejemplo :

.SelectionFormula = "{tblelaboracion.numelab}=" & 1 en el caso de que numelab sea numerico

.SelectionFormula = "{tblelaboracion.numelab}='" & 1 & "'" en el caso de que numelab sea alfanumerico

tienes dos opciones o sacas selectionformula, en ese caso te muestra todos los registros de la tabla o creas bien el filtro en selecionformula

[shasho]

Kruzado muchas gracias por la respuesta, ahora ya me está funcionando . Pongo aqui la solucion por si a alguien más le pasa el mismo problema...

strQryString = "{DatabaseProject.fecha} >= #" & Format(DTStartDate.Value, "dd/mm/yyyy") & "# And {DatabaseProject.fecha} <= #" & Format(DTEndDate.Value, "dd/mm/yyyy") & "#"

With CrystalReport1
.ReportFileName = App.Path & "\inventario.rpt"
.Connect = App.Path & "\residenciator.mdb"
.DiscardSavedData = True
.RetrieveDataFiles
.ReportSource = 0
.SQLQuery = "Select * from tblinventario order by NumInventario"
.ReportTitle = "Informe Detalles Inventario"
.Destination = crptToWindow
.PrintFileType = crptCrystal
.WindowState = crptMaximized
.WindowMaxButton = True
.WindowMinButton = True
.SelectionFormula = strQryString
.Action = 1
End With

Gracias de nuevo.