大家帮我看看语句有什么地方不对

Question

dim conn as new adodb.connection
dim rs as new adodb.recordset
set conn = new adodb.connection
conn.CursorLocation = adUseClient
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cj.mdb;Persist Security Info=False"
conn.Open connstr
set rs = new adodb.recordset
rs.AddNew
rs("xm") = "张三"
rs("km") = "语文"
rs("cj") = "66"
rs.Update
它说对象或提供者不对执行所需的操作

Answer 1

dim conn as new adodb.connection
dim rs as new adodb.recordset
set conn = new adodb.connection
conn.CursorLocation = adUseClient
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cj.mdb;Persist Security Info=False"
conn.Open connstr
set rs = new adodb.recordset
rs.open "select * from table",conn,3,3    '打开记录集
rs.AddNew
rs("xm") = "张三"
rs("km") = "语文"
rs("cj") = "66"
rs.Update

Answer 2

可以了，谢谢
问题所在是：rs.open "select * from table",conn,3,3，而我用的是1，1。为什么呢2、如果我想如果每增加一条记录，datagrid就自动多一条记录，也就是说要有刷新功能。
我用了timer控件，
Private Sub Timer1_Timer()
Timer1.Interval = 100
DataGrid1.Refresh
End Sub
可是不行，应该怎么办呢？

Answer 3

如果datagrid1没有绑定到数据库上去，就不能自动刷新，你可以把新的记录集重新添加到控件中去，后面两个参数是关于游标类型及数据锁定类型的，你可以查看相关帮助

Answer 4

foreverforyou(为情所困) ,我想认识你，不知道可不可以？