Assumes an ADODB Recordset. Example.
Dim sql1 As String, recsAffected As Integer, audID As Long
Dim cnt As Integer
sql1 = "Update dbo_Epic_TrackPayorProviderTpins Set " & _
"EpicExtractFlag = '1' " & _
"Where AuditID = " & audID
cn.Execute sql1, recsAffected
Debug.Print "records updated = "; recsAffected; " for AuditID = "; audID