Всем доброго времени суток!
Объясните такой конфуз. Из макроса MS Excel вставит запись в таблицу gCurrTable (структура - поле id (счетчик) и поле name (тестовое)). делаю:

Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open gCurrTable, db, , , adCmdTable
rs.AddNew
rs("name").Value = "111"
Set rs = Nothing

И ничего не вижу. Но когда блок AddNew повторяю два раза - всё отображается:

Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open gCurrTable, db, , , adCmdTable
rs.AddNew
rs("name").Value = "111"
rs.AddNew
rs("name").Value = "111"
Set rs = Nothing

Объясните, пожалуйста, в чем дело? не могу понять...

Спасибо.

p.s.: db.ConnectionString = "DBQ=" & file_mdb & ";UID=admin;PWD=" & Password & ";DRIVER={Microsoft Access Driver (*.mdb)};"

by-pass,

заработало!!! Спасибо большое!