ASP代码如下：
<%
Set aa = Server.CreateObject("school.SchoolInfomation")
response.write aa.SchoolName()
call SelectXueKe("test",0,0)
set aa=nothing
%>

VB DLL过程定义如下：
Sub SelectXueKe(SelectName As String, Id As Integer, AutoSubmit As Integer)

错误提示如下：
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'SelectXueKe'
/dll/2.asp, 第 4 行


传递字符数据没有问题，调用不需要传递参数的函数时，也正常，感觉只是传递数值时类型不匹配。

请哪位高手指点指点，急等中.....

call aa.SelectXueKe("test",0,0)