急救ADODB.Recordset 错误 '800a0cc1'

public sub doExecuteInsert(byval strSQL,byval strFields,byval strTree)
dim tmpRS,ii
set tmpRS=Server.CreateObject("ADODB.Recordset")
if instr(strSQL," ")<1 then strSQL="select top 1 * from "&strSQL
doExec tmpRS,strSQL,1,3
'if not tmpRS.eof Then
tmpRS.addnew
if len(strFields)>0 Then
dim tmpAry,aa
tmpAry=split(strFields,",")
for aa=0 to ubound(tmpAry)
'debug tmpAry(aa)&"-"&opsTest.toVariable(strTree.getItem(tmpAry(aa)),"")&"<br>"
tmpRS(tmpAry(aa))=toFormatValue(strTree.getItem(tmpAry(aa)))
next
else
strTree.doBegin()
for ii=1 to strTree.getCount()
'debug strTree.getItemKey()&"<br>"
tmpRS(strTree.getItemKey())=opsCode.toString(strTree.getItemValue())
strTree.doMove()
next
end if
tmpRS.update