Написал пргорамму схема примерно такова:

Dim ws As dao.Workspace

Dim conn As Connection

Dim dsn As String

dsn = "База данных MS Access"

Set ws = DBEngine.CreateWorkspace("", "", "", dbUseODBC)

Set conn = ws.OpenDatabase(dsn, , , "ODBC;Driver={Microsoft Access Driver (*.mdb)};Dbq=d:\db4.mdb;Uid=Admin;Pwd=;")

Dim rs As dao.Recordset

Set rs = conn.OpenRecordset("Таблица1") -- пробовал и с опцией dbOpenDynaset, и с
dbOpenDynamic

rs.AddNew


rs![Поле1] = "Hello World!!!"

rs.Update


При выполнении команды rs.AddNew выползает ошибка примерно
следующего содержания:

run-time error '3027'
Обновление не возможно. База данных или объект доступны только для чтения.

Подскажите, пожалуйста, в чем может быть дело?

THANKS AND RESPECT с уважухой.
С ADO работает.