添加数据库记录问题

Question

使用WORD VBA向ACCESS数据库中增加一条记录，帮我看一下是我程序的问题还是怎么回事，总是添加不进去……Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "provider=microsoft.jet.oledb.4.0;data source=D:\db1.mdb"
rs.Open "admin", cn, adOpenKeyset, adLockBatchOptimistic
 
rs.AddNewrs.Fields("admin_name") = "abc"
rs.Fields("admin_psw") = "123"
rs.Update
       
rs.Close
Set rs = Nothing
cn.close
set cn=nothing

Answer 1

1楼写反了：）
 rs.UpdateBatch

Answer 2

也可以这样修改： 
adLockBatchOptimistic  -> adLockOptimistic