Attribute VB_Name = "basADOedit"
Option Compare Database
Option Explicit

Sub ADOedit()

'Declare your connection and recordset
Dim cnConn As ADODB.Connection
Dim rsTable As ADODB.Recordset

'Set your connection to the current project
'Set your table to a new ADO recordset
Set cnConn = CurrentProject.Connection
Set rsTable = New ADODB.Recordset

'Open your table - in this case tblNames
rsTable.Open "tblNames", cnConn, adOpenDynamic, adLockPessimistic

Dim i As Integer    'record counter
i = 0   'initialize it as 0

'Move to the first record and loop through them to the end
rsTable.MoveFirst
Do Until rsTable.EOF

    If rsTable!strLastName = "Jane" Then 'changing each record of JANE to JONES
        rsTable!strLastName = "Jones"
        i = i + 1   'add one everytime a record is changed.
    End If
    
rsTable.Update
rsTable.MoveNext
Loop

MsgBox "Number of records changed: " & i, vbInformation, "Edit"

'Clean up your variables
rsTable.Close
cnConn.Close
Set rsTable = Nothing
Set cnConn = Nothing

End Sub