sql 반복문

Option Compare Database
Option Explicit

Public Sub gsbEditData1()

    Dim strSQL As String
    Dim rst As ADODB.Recordset
    Dim strUpdate As String
   
   
    strSQL = "SELECT * FROM 수정해야할데이터"
    Set rst = New ADODB.Recordset
    rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly
   
    Do Until rst.EOF
        strUpdate = "UPDATE 데이터 SET 데이터.공정 = '[_NewVal_]'" & vbNewLine & _
                    "WHERE (((공정)='[_Process_]') AND ((매장)='[_Store_]') AND ((대분류)='[_Cat1_]')" & vbNewLine & _
                    "   AND ((세분류)='[_Cat2_]') AND ((카운터)<=[_Counter_]));"
        strUpdate = Replace(strUpdate, "[_NewVal_]", "외주")
        strUpdate = Replace(strUpdate, "[_Process_]", rst!공정)
        strUpdate = Replace(strUpdate, "[_Store_]", rst!매장)
        strUpdate = Replace(strUpdate, "[_Cat1_]", rst!대분류)
        strUpdate = Replace(strUpdate, "[_Cat2_]", rst!세분류)
        strUpdate = Replace(strUpdate, "[_Counter_]", rst!품번별카운터의최대값)
        Debug.Print strUpdate
        Debug.Print String(50, "-")
        CurrentProject.Connection.Execute strUpdate
        rst.MoveNext
    Loop
   

End Sub