1:rs.open "tongdata", cn 改为
   rs.open "tongdata", cn, adOpenKeyset, adLockOptimistic
2; 建议,用INSERT INTO

解决方案 »

  1.   

    如果你的MDB库不是只读,版本也对的话,并且EDIT可以的话。
    ADO在这种情况下可能不支持ADDNEW。
    那么你可以SQL语句来完成你的任务。
      sSQL = "INSERT INTO tongdata (姓名) values ('aaaa')"
      cn.Execute sSQL
    就可以了。
      

  2.   

    rs.open "tongdata", cn, 3, 3
      

  3.   

    connection和recordset有几个属性,缺省时数据库是只读的,要改成可读写!今天出差,回去后可给你代码!
    可以参考MSDN的ADO的CONNECTION和RECORDSET对象!
      

  4.   

    vbFly(雪如月) :
    你的问题在哪里呀