Про метод .AddNew
Подсоединяюсь:
Set wrk = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)
Set cnn = wrk.OpenDatabase("dsn", dbDriverNoPrompt, False, DBCONNECT)
и по ходу:
Set Record1 = cnn.OpenRecordset("files")
With Record1
.AddNew ' здесь баг
....