ＤＬＬ使用有关问题

ＤＬＬ使用问题，在线等
我有一个ＶＣ６．０写的名为YMDLL的ＤＬＬ，在其内有一个　int   GetRecordCount   (BYTE   cPort,   DWORD   dwBaudRate,   BYTE   cMachineNo,     WORD   *wRecordCount)的函数，
在ＶＢ中，我作了如下声明：Declare       function   GetRecordCount             Lib       "YMDLL "(ByVal       cPort       As       byte,       ByVal       dwBaudRate         As       long,       ByVal     cMachineNo     As       byte,byval   wRecordCount   as   long   )       As     integer
现在一个调用
dim   P   as   long  
dim   i   as   integer
i=getrecordcount(1,9600,1,p)
然后就ＶＢ出错了，连ＶＢ都跳出来，是什么原因呀？

[解决办法]
Declare function GetRecordCount Lib "YMDLL "(ByVal cPort As byte, ByVal dwBaudRate As long, ByVal cMachineNo As byte,byref wRecordCount as integer) As long