Declare Function sqr Lib "sqrw.dll" (ByVal sString As String) As Integer
Declare Function sqrend Lib "sqrw.dll" () As Integer

private sub SQR_Procedure
    dim nResult as integer
    dim sString as string
    sString = sTempPath & "Temp.SQR <put your dblogon info here>
-E<filename of error listing goes here> -M<allmaxes.max directory goes
here> -O<error log directory goes here -XCB -ZMF<sqrerr.dat directory
goes here>"
    nResult = sqr(sString)
    nResult = sqrend()
'   Make sure you call sqrend after you're done

end sub