急！rs.addnew出错，错误（3251）对象不能执行指定程序；

Question

With Rs
        If .State = adStateOpen Then
            .Close
        End If
        .ActiveConnection = adoCN
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockBatchOptimistic
        .Source = "SELECT * FROM Employees"
        .Open
    end with

Answer 1

cn.CursorLocation  =  adUseClient 

Answer 2

  With  Rs 
                If  .State  =  adStateOpen  Then 
                        .Close 
                End  If 
                .ActiveConnection  =  adoCN 
                .CursorLocation  =  adUseClient 
                .CursorType  =  adOpenDynamic 
                .LockType  =  adLockBatchOptimistic 
                .Source  =  "SELECT  *  FROM  Employees" 
                .Open 
        end  with 
跟贴，接分，......
 

Answer 3

if rs.state=adstateopen then rs.close
rs.open "select* from employees",cn,adopenstatic,adlockoptimistic,adcmdtext

Answer 4

感谢您使用微软产品。您可以试一下将rs.Open语句改为以下形式：
rs.Open , , adOpenStatic, adLockOptimistic
因为如果您不指定adLockOptimistic参数，该Recordset会缺省以只读方式打开。希望以上建议能对您有所帮助。- 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

Answer 5

http://www.wzjcw.net/vbgood/taishan/index.html
【19种打开数据库的方法】源代码。使用对象、控件，ADO、DAO，SQL语句等等。