Hi

How can I do Select for update in recordset, I Must to read a recordset in each processing , I need to update this record

Code:
   Set mRsDados = New ADODB.Recordset
        mSql = "SELECT NM_TELA, CD_USUARIO,CD_USUARIO_CC, TP_EMAIL, 
        CD_PERIODO, ID_ORDEM_PROCESSAMENTO FROM SIBTB_USUARIO_EMAIL"
        msql = msql &  " where STATUS = 0"
        mSql = mSql & " ORDER BY ID_ORDEM_PROCESSAMENTO"
        mRsDados.Open mSql, cn, adOpenForwardOnly, adLockReadOnly
        

        Do While Not mRsDados.EOF
            processing....
             'here I neeed to do update in table SIBTB_USUARIO_EMAIL
             'UPDATE SIBTB_USUARIO_EMAIL
             '        SET STATUS = 1 
             '  WHERE ID_ORDEM_PROCESSAMENTO = RS(4)
            mRsDados.MoveNext
         
        Loop
        mRsDados.Close
        Set mRsDados = Nothing
How can I do it , I tried above but no work
Tia