Try this all in one:
Code:
Option Compare Database
Option Explicit
Public Sub subUpdate()
Dim sSQL As String
Dim sSave As String
Dim rst As DAO.Recordset
sSQL = "SELECT Tbl1.Column1, Tbl1.Column2, Tbl1.Column3 " _
& "FROM Tbl1 " _
& "WHERE (((Tbl1.Column1) Like 'Blue*') " _
& "AND ((Tbl1.Column2) Not Like ' 111 Central Ave*')) " _
& "Or (((Tbl1.Column1) Like 'Red*')) " _
& "ORDER BY Column3 DESC;"
Debug.Print sSQL
Set rst = CurrentDb.OpenRecordset(sSQL)
rst.MoveLast
rst.MoveFirst
sSave = rst!column3
Do While rst.EOF = False
rst.Edit
rst!column3 = sSave
rst.Update
rst.MoveNext
Loop
Set rst = Nothing
End Sub