Updating Records from RS Not Working

[Fattire]

I don't see what I'm doing wrong with this update, no error occurs, but no update either. Both rec2 and rec5 are ADO. rec2 comes from Oracle, rec5 from Access.

    Do While Not rec2.EOF
        With rec5
            .MoveFirst
            .Find "[po] = " & rec2!PO_NUMBER, , adSearchForward
            !GL_CODE = rec2!expense_account
            .Update
        End With
        rec2.MoveNext
    Loop

po is text in Access, rec2!PO_NUMBER is varchar in Oracle

I've tried:
.Find "[po] = '" & rec2!PO_NUMBER & "'"
.Find "[po] = """ & rec2!PO_NUMBER & """
.Find "[po] = " & rec2!PO_NUMBER &

 

[PHV]

Both rec2 and rec5 are ADO

    Do While Not rec2.EOF
        With rec5
            .MoveFirst
            .Find "po='" & Trim(rec2!PO_NUMBER) & "'"
            !GL_CODE = rec2!expense_account
            .Update
        End With
        rec2.MoveNext
    Loop

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886