用VBA测试了一下,应该可以
Dim dd As New ADODB.Connection
Dim dd1 As New ADODB.Recordset
dd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Db1.mdb;Persist Security Info=False"
dd1.Open "select * from tt", dd, adOpenKeyset, adLockOptimistic
dd1.AddNew
dd1.Update