Visual Basic - Me ayudan con mi reporte?

gracias cuates por leer mi solicitud: estoy utilizando Visual 6 y el crystal pro, que vienen con él. tengo un reporte llamado datosgen1.rpt, y un formulario con un command llamado imprimir, le coloco las instrucciones siguientes y no me funciona:

'On Error Resume Next ---- - desde aquí ya me da error por eso lo anulé
Dim strCadena As String
---------------------------------------------
Private Sub Form_Load()

End Sub
----------------------------------------------
Private Sub imprimir_Click()
If txt_cuenta <> "" Then
'Agregando al filtro al area
If strCadena <> "" Then
strCadena = strCadena & " and "
End If
strCadena = strCadena & "{totales.newmatricula} = " & txt_matricula

mdiPrincipal.Reporte.SelectionFormula = strCadena
mdiPrincipal.Reporte.Destination = crptToPrinter
mdiPrincipal.Reporte.DataFiles(0) = "C:\encanto\integrl.mdb"
mdiPrincipal.Reporte.WindowTitle = "NÓMINA PRINCIPAL"
mdiPrincipal.Reporte.WindowState = crptMaximized
mdiPrincipal.Reporte.ReportFileName = "C:\encanto\rpt\datosgen1.rpt"
mdiPrincipal.Reporte.Action = 1
Else
MsgBox "por favor Llene todos los campos", vbOKOnly
End If

mdiPrincipal.Reporte.SelectionFormula = ""
mdiPrincipal.Reporte.Destination = crptToPrinter
mdiPrincipal.Reporte.DataFiles(0) = "C:\encanto\integrl.mdb"
mdiPrincipal.Reporte.WindowTitle = "NÓMINA PRINCPAL"
mdiPrincipal.Reporte.WindowState = crptMaximized
mdiPrincipal.Reporte.ReportFileName = "C:\encanto\rpt\datosgen1.rpt"
mdiPrincipal.Reporte.Action = 1
End Sub
el mensaje que me sale es el de la instrucción "por favor llene todos los campos", casi me rajo la cabeza pensando en que fallé y no encuentro, por favor si alguien me ayuda le agradecería muchísimo.

Pues, según tu código, Compa, el mensaje te sale porque esta condición no se cumple:
If txt_cuenta <> "" Then
porque lo que tienes después de ella es darles valor adecuado a las propiedades del reporte y ejecutarlo.

Pero si txt_cuenta está vacío se ejecuta esto:
Else
MsgBox "por favor Llene todos los campos", vbOKOnly
End
O "sease", que txt_cuenta sí tiene el valor vacío ( "" ), pues'n.
Chécale los Ifs, Elses y Endifs que tienes y verás.

¡Ah!, otra cosa ...
Esto te da error
'On Error Resume Next ---- - desde aquí ya me da error por eso lo anulé
Dim strCadena As String

Por que una rutina de "deteición" de errores debe estar en un procedimiento o "junción", no la puedes poner desde la "seición" de declaración de variables al inicio de tu "fermulario" (así hablo yo, compa, como todos los del "norti", no te aflijas).

Gracias despistao, pero he bregau un montón y no logro resolver mi problema de impresión, será que si te envío mi formulario y mi reporte rpt, me le das una chequeada?, pues te agradeceré mucho si me indicas tu correo y luego te envío el paquete. gracias por tu ayuda eres muy gentil.