你要看你就点是？你不点我怎么知道你要看？

Question

Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrWith rst
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "select * from stu", cnnstr
    .AddNew
    .Fields("字段1") = "1"
    .Fields("字段2") = "2"
    .Fields("字段3") = "3"
    .Fields("字段4") = "4"
    .Fields("字段5") = "5"
    .Update
    .UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close这样绝对可以（cnnstr换成连接sql的）

Answer 1

maybe the problem is with "LockType" 
it is default value is adLockreadonly.

Answer 2

这样：
dim dtsource as  new adodb.connection
dim rs as new adodb.recordset
dim sqlstr as string
dtsource.open "driver={sql server};server=YourServer;uid=sa;pwd=;database=YourDatabase"
sqlstr="select * from adtable where id=NULL"
rs.open sqlstr,dtsource,3,1
rs.addnew
rs.fields(0)="dfsa "
.......
rs.update
试试看

Answer 3

老兄！我用的是SQL Server2000呀，怎么能用jet呢？