这是什么问题啊？

Question

我在模块里建立了一个函数
public function ExecuteSQL(byvar sql) as adodb.recordset
  dim rs as new adodb.recordset
  rs.open trim$(sql),adOpenKeyset ,adLockOptimistic,adcmdtext
  set ExecuteSQL=rs
end sub调用它时
在做增加操作时可以
在做删除和更新操作时就报错
在更新时：
dim temprs as new adodb.recordset
dim txtsql=select * from 表
set temprs=ExecuteSQL(txtsql)
temprs.addnew
temprs.field(0)=trim(text1.text)
..........................
temprs.update
temprs.close
end sub它报错在rs.open trim$(sql),adOpenKeyset ,adLockOptimistic,adcmdtext这一行
信息为：要求默认值1
该怎么改啊？

Answer 1

不好意思
dim txtsql=select * from 表
这里写错了
txtsql=”select * from 表“

Answer 2

把这句
rs.open trim$(sql),adOpenKeyset ,adLockOptimistic,adcmdtext
改成这句
rs.Open trim$(sql), adOpenDynamic, adLockOptimistic, adCmdTable
试一试