hi to all,

cr 11, vb6

i got an error [20728: F] with the following code:
Code:
'MsgBox strQry

''VIEW/GENERATE CRYSTAL REPORT
With cr

    .Connect = " DSN=" & sql_odbc & "; " & _
               " uid=" & sql_user & "; " & _
               " pwd=" & sql_pass & "; " & _
               " database=" & sql_db & "; "

    .ReportTitle = "noisterCall 1.0 - Report"
    .WindowTitle = "noisterCall 1.0 - Report"
    
    'restriction
    If strUserType = 5 Then .WindowShowExportBtn = False: .WindowShowPrintBtn = False
    
    .SQLQuery = strQry
    .Destination = crptToWindow

    'show
    .ReportFileName = App.Path & "\" & strReportFile
    
    'MsgBox App.Path & "\" & strReportFile
    
    '.ReportSource = crptDataControl
    '.Action = 1
    
    .PrintReport
    
    MsgBox .LastErrorNumber & ": " & .LastErrorString, vbCritical, "noisterCall"
    
    'MsgBox App.Path & "\" & strReportFile
    
End With
pls help it's urgent... any help really appreciated.