OLEDB.12.0; Data Source=" & str Access File & "; Persist Security Info=False;" Response. Open "REGION", cnn Access, ad Open Static, ad Lock Optimistic, ad Cmd Table Response.
This may be a limitation of the provider, or of the selected locktype.
Recordset error '800a0cb3' Current Recordset does not support updating.
Write "Excel connection opened" ' Load ADO Recordset with Excel Data Set rst Excel = Server. Write "Excel Recordset loaded" ' Open Access Connection Set cnn Access = Server.
It does go through this loop many times but then crashes before hitting the line following the loop.
1001 represent the Fall term of the year 2000 (Aug - Dec) Term = "1" & Right(Year, 2) & Term db Command(3) = Term Set rs My Set = db Command. EOF Then Msg Box "No Mailing List To Produce", vb Exclamation, "NO MAILING LIST" Else Do While Not rs My Set.
Move Next Loop End If How can I resolve this, why MS Access does allow this simple updating ?