rs.Open sql, con, adOpenStatic, adLockOptimistic, adCmdText 可以运行的，我都成功的删除数据了

只是下面那部分不行

Set rs = con.Execute("Select @@rowcount") '删除数据的数目 ' ' 显示第一个字段 MsgBox rs(0) & " rows deleted" ' '关闭连接 rs.Close

我这样也可查出所影响的行数,请问有什么不同

能不能给我解释一下这几条语句,谢谢

Set cmd.ActiveConnection = con cmd.CommandText = sql cmd.Execute cnt

还有这条

Dim cmd As New ADODB.Command [/QUOTE]

Dim cmd As New ADODB.Command '声明一个类型为ADODB.Command 的对象并创建对象实例 Set cmd.ActiveConnection = con '设置cmd的活动连接为con对象（为ADODB.Connection类型) cmd.CommandText = sql '设置cmd的命令字符串 cmd.Execute cnt　　　　　　　　 ' 执行命令