Oracle 按引用参数类型不匹配VB 6.0

我调试这个程序时遇到了一个问题，byref参数类型不匹配总是出现在这个模块中。从部件初始化、S2_GetTaskIDs、S2_GetAllTasks都可以，但是当它移动到S2_排序时，问题就出现了。变量dCnt、tCnt、sCnt、wCnt都是整数

”用于检查上层工作人员
这是一本新字典
新词典
公共Sub S2_CreateReport（）
初始化“[打开与oracle的连接]
S2_GetTaskIDs'获取不同的任务ID
S2_GetAllTasks'[获取项目的大部分任务，在两天之间转移到S2]
S2_Sort'对数据记录进行排序
CloseAll'[关闭与oracle的连接]
S2_计算模式
S2_计划报告
S2_打印报告
S2_前庭报告
端接头
私人助理S2_GetTaskIDs（）
将rstTask设置为ADODB.Recordset
strQuery=“选择不同的任务\u ID，PROD\u DB中的描述，其中PROJECT\u ID=”&inproject&“按任务\u ID排序”
设置rstTask=AdoConn.Execute（strQuery）
tCnt=0
重拨任务ID（tCnt）
rstTask.MoveFirst
不要同时rstTask.EOF
tCnt=tCnt+1
重拨保留任务ID（tCnt）
TaskID（tCnt）.TaskID=rstTask.Fields（“任务ID”）.Value
TaskID（tCnt）.TaskName=rstTask.Fields（“DESCRIPTION”）.Value
rstTask.MoveNext
环
设置rstTask=Nothing
端接头
专用子任务S2_GetAllTasks（）
'作为字符串的Dim pQ
将rstTask设置为ADODB.Recordset
strQuery=“从产品数据库中选择*WHERE”
'获取pcodes
'对于pCnt=1到UBound（PCode（））
'如果pQ=”“，则
“pQ=”（项目ID类似“&PCode（pCnt）&“%”
”“否则呢
“pQ=pQ&”或类似于“项目ID”&PCode（pCnt）和“%”
"完"
“下一个pCnt
“pQ=pQ&”）
'从元素历史中选择*，其中（eprocstart>=到时间戳（'Aug-01-2010 06'，
“MON-DD-yyyyy HH24”）和（eprocend<（至时间戳（“2010年8月5日23”），
“MON-DD-YYYY HH24”）+间隔“6”小时）
strQuery=strQuery&_
"(PROJECT)ID LIKE"&inproject&"""项目&""_
“和（开始时间>=到时间戳（'”&inpDateS&“06'，'MON-DD-yyyyyh24'）”&_
“和（结束时间<（至时间戳（'”&inpDateE&“23'，'MON-DD-yyyyyh24'）+间隔'6'小时））”&_
按开始时间、任务ID排序
设置rstTask=AdoConn.Execute（strQuery）
tCnt=0
'重拨任务ID（tCnt）
如果不是（rstTask.EOF和rstTask.BOF），则
rstTask.MoveFirst
不要同时rstTask.EOF
'对于dCnt=1到UBound（S2.Day（））
“如果记录在一天之内
'如果CDate（rstTask.Fields（“START_TIME”）.Value）=CDate（S2.Day（dCnt）），则
重拨保留数据记录（tCnt）
DataRecord（tCnt）.TaskID=rstTask.Fields（“任务ID”）.Value
DataRecord（tCnt）.StartTime=rstTask.Fields（“开始时间”）.Value
DataRecord（tCnt）.EndTime=rstTask.Fields（“结束时间”）.Value
数据记录（tCnt）.Description=rstTask.Fields（“Description”）.Value
DataRecord（tCnt）.ProjectID=rstTask.Fields（“项目ID”）.Value
DataRecord（tCnt）.DomainID=rstTask.Fields（“DOMAIN_ID”）.Value
DataRecord（tCnt）.RoleID=rstTask.Fields（“角色ID”）.Value
DataRecord（tCnt）.NextTask=rstTask.Fields（“下一个任务”）.Value
'***数据记录（tCnt）.Cost=rstTask.Fields（“成本”）.Value
如果rstTask.Fields（“成本”）.Value=Null，则
数据记录（tCnt）.Cost=“”
如果结束
如果rstTask.Fields（“度量单位”）.Value=Null，则
数据记录（tCnt）.MeasurementUnit=“”
如果结束
'***数据记录（tCnt）.MeasurementUnit=rstTask.Fields（“测量单位”）.Value
DataRecord（tCnt）.duration=rstTask.Fields（“总工作分钟数”）.值
DataRecord（tCnt）.CompletedUnit=rstTask.Fields（“已完成的单位”）.值
DataRecord（tCnt）.TotalWaitTime=rstTask.Fields（“总等待时间”）.Value
DataRecord（tCnt）.CompletedWork=rstTask.Fields（“已完成的工作”）.Value
'***数据记录（tCnt）.ErrorUnit=rstTask.Fields（“错误单位”）.Value
如果rstTask.Fields（“ERROR_UNITS”）.Value=Null，则
数据记录（tCnt）.ErrorUnit=“”
如果结束
如果为空（rstTask.Fields（“资源名称”）.Value），则
DataRecord（tCnt）.ResourceName=“”
其他的
DataRecord（tCnt）.ResourceName=rstTask.Fields（“资源名称”）.Value
如果结束
DataRecord（tCnt）.MinWaitTime=rstTask.Fields（“MIN_WAIT_TIME”）.Value
DataRecord（tCnt）.MaxWaitTime=rstTask.Fields（“MAX_WAIT_TIME”）.Value
DataRecord（tCnt）.AveWaitTime=rstTask.Fields（“AVE_WAIT_TIME”）.Value
如果为空（rstTask.Fields（“MODE\u WAIT\u TIME”）.Value），则
DataRecord（tCnt）.ModeWaitTime=“”
其他的
DataRecord（tCnt）.ModeWaitTime=rstTask.Fields（“MODE\u WAIT\u TIME”）.Value
如果结束
DataRecord（tCnt）.MinProcTime=rstTask.Fields（“MIN_PROC_TIME”）.Value
DataRecord（tCnt）.MaxProcTime=rstTask.Fields（“MAX_PROC_TIME”）.Value
DataRecord（tCnt）.AveProcTime=rstTask.Fields（“AVE_PROC_TIME”）.Value
如果为空（rstTask.Fields（“MODE\u PROC\u TIME”）.Value），则
DataRecord（tCnt）.ModeProcTime=“”
其他的
DataRecord（tCnt）.modeprocttime=rstTask.Fields（“MODE\u PROC\u TIME”）.Value
如果结束
'DataRecord（tCnt）.ModeProcTime=rstTask.Fields（“MODE\u PROC\u TIME”）.Value
rstTask.MoveNext
Call SetDataRecord(rstInfo, wCnt)