Attribute VB_Name = "basADOSQLEdit"
Option Compare Database
Option Explicit

Sub ADOSQLedit()

'Declare your variables
Dim cnConn As ADODB.Connection
Dim strSQL As String

'Set your variables
Set cnConn = CurrentProject.Connection
strSQL = "UPDATE tblNames SET strLastName = 'Jones' WHERE strLastName = 'Jane'"

cnConn.Execute strSQL

'Clean up
cnConn.Close
Set cnConn = Nothing

End Sub