New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Sub Test1() Dim connAdo As ADODB.Connection Dim rstTest As ADODB.Recordset Set connAdo = New ADODB.Connection connAdo.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\develop\database3.accdb;Persist Security Info=False;") Set rstTest = New ADODB.Recordset rstTest.Open "table1", connAdo, adOpenDynamic, adLockPessimistic rstTest.MoveFirst rstTest.Fields("field1").Value = "Test" rstTest.Save '' THIS LINE CAUSES RUNTIME ERROR End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.