关于ADO调用的问题。

SLLSX977824

请问在ACCESS中怎样通过ADO调用本ACCSEE中的数据库表呢？联接字符串是什么？

Dim cn As New ADODB.Connection '定义一个Ado连接

Dim cmd As New ADODB.Command

Set cn = CurrentProject.Connection '定义cn等于当前连接

cn.Open

Set cmd.ActiveConnection = cn

cmd.CommandText = "update 资金发放表 set  实发金额 =  1000  where 姓名 = '王五' "

cn.Execute

我执行以上代码时，提示“对象打开时，不允许操作”。

请问问题出在哪里？应怎样解决？

[此贴子已经被作者于2004-8-9 23:09:58编辑过]