External db not Updatable

[EddyLLC]

I am using the following code to open an external database and add a record to a table in it.
strTableName = "flkpTable1"
strDBName = "C:\Program Files\Database.MDB"
Set dbImp = DBEngine.Workspaces(0).OpenDatabase strDBName, False, True,
"'")
Set rsImp = dbImp.OpenRecordset(strTableName, dbOpenDynaset)
rsImp.FindFirst "Field1 = '" & Variable1 & "'"
If rsImp.NoMatch Then
rsImp.AddNew

The code works fine until I get to the AddNew portion. I get an error message telling me Cannot update, Database or Object is Read-Only. The database is not read only unless I am opening it incorrectly. Can anybody see what's wrong with my code?

Thanks

 

[jrbarnett]

The database may not be read only, but you are specifying the Read Only flag as True in the OpenDatabase statement, so Access won't let you add or update data in it.

If you change the True statement to False, it should work correctly (provided that the file is not read only on the disk or secured with NTFS permissions).

John

 

[vast02]

Thank you, Eddy. Can you explain the line of code for me?

Set dbImp = DBEngine.Workspaces(0).OpenDatabase strDBName, False, True,
"'")

Vast02

 

[earthandfire]

The Workspaces collection (and how to use it) is thoroughly explained in the Access help files.