Hola Pablo, te pongo un ejemplillo a ver si te vale con eso.
' Primero guardas en una variable la parte de la condición de la select. Los nombres de los campos de las tablas deben ir entre llaves:
strCadena = "({Tabla.Campo} >= ' " & variable & ' "
'Guardas esta cadena en la propiedad 'selectionformula' del objeto crystal de tu formulario
ObjetoCrystal.SelectionFormula = strCadena
'Indicas la base de datos:
ObjetoCrystal.Connect "DSN=nombre;UID=usuario;PWD=contraseña;"
' Maximiza la ventana del informe
ObjetoCrystal.WindowState = crptMaximized
' Indicas si quieres el informe en pantalla(crptToWindow) o por impresora (crptToPrinter)
ObjetoCrystal.Destination = crptToWindow
' Indicas el título del informe
ObjetoCrystal.ReportTitle = "Titulo"
' Indicas el fichero a mostrar
ObjetoCrystal.ReportFileName = "Ruta fichero"
' Y lo ejecutas
ObjetoCrystal.Action = 1
Espero que te sirva. Suerte