You'll need to declare a Function like this one which is used with a dll named RWTGetData, but modified for your dll location and fields passed by the dll.
Public Declare Function RWTGetData Lib "c:\rqt\dbacc.dll" (ByVal sData As String, ByRef nErrCode As Long, ByVal sErrText As String) As Long
I don't think the Ints passed by the dll will be a problem, but the chars will probably need to be handled as follows:
Code:Dim sData as String Dim lRC As Long Dim sData as String Dim sErrText as String sData = String(255, 0) sData = Space(MAXLEN) lRC = RWTGetData(sData, lError, sErrText)
------------------
Marty




Reply With Quote