Error Number 20000 when trying to use the Crystal Reports
Custom Control in VB4 16Bit
=========================================================
I am using the Sample Crystal reports Project, CROCXSAM to test
the use of Crystal in my VB 4 app.

When I run the sample program and request a report print I
get a blank message.  This is the LastErrorString from the Crystal
Control.  I modified the the code;

........
On Error GoTo ErrorHandler
        Report1.Action = 1
    Exit Sub
ErrorHandler:
    Dim errnum As Long
    Dim errdesc As String
    Dim errsource As String
    Dim errdll As String
    Dim rptmsg As String
    Dim rptnum As Long

    errnum = Err.Number
    errdesc = Err.Description
    errsource = Err.Source
    errdll = Err.LastDllError
    rptmsg = Report1.LastErrorString
    rptnum = Report1.LastErrorNumber

    MsgBox "Number     : " & errnum & vbCrLf & _
           "Description: " & errdesc & vbCrLf & _
           "Source     : " & errsource & vbCrLf & _
           "DLL        : " & errdll & vbCrLf & _
           "RPTMSG     : " & rptmsg & vbCrLf & _
           "RPTNUM     : " & rptnum
..............
and get the following results;
 Number  20000
 Description
 Source  CRYSTL16
 DLL  0
 RPTMSG
 RPTNUM  0

I can't find message number 20000 and do not know why I
can't get even this sample app to work.  Crystal reports
itself runs ok.  The MDB and the RPT are in the listed
locations.