Problemas con Crystal Report

Te envío el código de uno de los programas que tengo y que funciona con crystal reports V 4.6 que viene con visual basic 6.0.
If right(App.Path, 1) = "\" Then
RUTA$ = App.Path
Else
RUTA$ = App.Path & "\"
End If
If NombreReporte = "acuse.rpt" Then
sFormula = "{vie_consultas.no_folio} = '" & NoFolio & "' and {vie_consultas.anio} = '" & Anio & "'"
Select Case gUNivel$
Case 1, 2: 'Oficialia de partes y presidencia
Case 3: 'Vicepresidencia
sFormula = sFormula & "and {vie_consultas.area_tiene} like '" & left(gUArea$, 1) & "*'"
Case 4: 'Dirección general
sFormula = sFormula & "and {vie_consultas.area_tiene} like '" & left(gUArea$, 2) & "*'"
Case 5: 'Dirección de area
sFormula = sFormula & "and {vie_consultas.area_tiene} like '" & left(gUArea$, 3) & "*'"
Case 6: 'Subdirección
sFormula = sFormula & "and {vie_consultas.area_tiene} like '" & left(gUArea$, 4) & "*'"
Case Else:
MsgBox "Error al imprimir reporte. Consulte a su Administrador", vbExclamation, "Reporte Acuse"
Exit Sub
End Select
frmRegistroInformacion.Acuse.Destination = crptToPrinter
Else
sFormula = "{his_cgi_wf.area_recibio} = '" & gUArea$ & "' " & _
" and {his_cgi_wf.area_tiene} = '" & gsAreaSeleccionada & "'" & _
" and ToText ({vie_consultas.f_asignacion_area}) = '" & gsFechAsignacion & "'"
If gsTipoAsuntos <> "" Then
sFormula = sFormula & " and {vie_consultas.etiqueta_vau} = '" & gsTipoAsuntos & "'"
End If
frmRegistroInformacion.Acuse.Formulas(0) = "FECHA='" & gsFechAsignacion & "'"
frmRegistroInformacion.Acuse.Destination = crptToWindow
End If
frmRegistroInformacion.Acuse.ReportFileName = RUTA$ & NombreReporte
frmRegistroInformacion.Acuse.WindowTitle = "Acuse"
frmRegistroInformacion.Acuse.SelectionFormula = sFormula
frmRegistroInformacion.Acuse.Connect = MsAux$
frmRegistroInformacion.Acuse.Action = 0
Desarrollos mediante teletrabajo.
e-mail: [email protected]