Steps to Reproduce Behavior

Steps to Reproduce Behavior

<script type="text/javascript">loadTOCNode(2, 'moreinformation');</script>The following example assumes that you have an Open Database Connectivity (ODBC) data source that opens the Pubs database in Microsoft SQL Server.

1.	Start Access and open the sample database Northwind.mdb.
2.	Create a module, and then type the following procedure: NOTE: When you use the Visual Basic Editor from within other Microsoft Office 2000 programs, you must first ensure that the Microsoft DAO 3.6 object library is included in your References. Sub ConnectAndAddRecords(UID as String, DSN as String, _ Optional PWD as String) Dim wrkODBC As Workspace Dim conPubs As Connection Dim rstTmp As Recordset ' Create an ODBCDirect workspace. Set wrkODBC = CreateWorkspace _ ("NewODBCWorkspace", "admin", "", dbUseODBC) ' Open a connection to an ODBC data source. Set conPubs = wrkODBC.OpenConnection("Connection1", _ dbDriverNoPrompt,,"ODBC;DATABASE=pubs;UID=" & UID _ & ";PWD=" & PWD & ";DSN=" & DSN) ' Open a recordset which is read-only by default. Set rstTmp = conPubs.OpenRecordset("Authors", dbOpenDynamic) rstTmp.AddNew rstTmp!au_id = "111-11-1111" rstTmp!au_lname = "Dickens" rstTmp!au_fname = "Charles" rstTmp!Contract = 0 rstTmp.Update rstTmp.Close conPubs.Close wrkODBC.Close End Sub
3.	To test this procedure, type the following line in the Immediate window, and then press ENTER: NOTE: Substitute your own username, ODBC data source name and password for the UID, DSN, and optional Password arguments in the following example: ConnectAndAddRecords "UID","DSN","Password"

Note that the code fails on the rstTmp.AddNew line with the following error message:

Run-time Error '3027': Cannot update. Database or object is read-only.