求助：这段用ADODB增加表中记录的程序不能增加记录！急！！！！！！！

Question

代码如下，望高手赐教！！ 
        connectstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=db;Data Source=gg"
        cnn.Open connectstring
        cmd.ActiveConnection = cnn
        cmd.CommandText = "select * from table"
        rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
       With rs
        .AddNew
        !id = Text1.Text
        !name = Text2.Text
        
        !starttime = CDate(Text5.Text)
        !endtime = CDate(Text6.Text)
        .Update
        .Close
       End With
       cnn.Close

Answer 1

connectstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=db;Data Source=gg"
        cnn.Open connectstring
        cnn.execute "insert into [table](id,name,starttime,endtime) values('"& text1.text &"','"& text2.text &"','"& text3.text &"','"& text4.text &"')"        
        cnn.close

Answer 2

谢谢楼上的
这样可以
但是我还是想知道怎么ADDNEW不能添加记录么？

Answer 3

rs.Open cmd, , adOpenKeyset, adLockBatchOptimistic......
.UpdateBatch '因为你用了 adLockBatchOptimistic