Good morning,

Please help with a frustrating problem.   I could have sworn this used to
work but now I can't
get an update to work with Remote Data Objects using VB 4.0 Enterprise
Edition.

I get the following error (from debut window)

?err
40002
?error(err)
01S03: [Microsoft][ODBC SQL Server Driver]No rows updated or deleted

The code is simplistic: (I've broken up the lines in this message for
reading)

SQL = "select workstation, customer_no, img_store_date, img_arch_stat,
img_arch_date
        from images where img_arch_stat = 'A' and workstation = '0171'"
localDb.QueryTimeout = 2400
Set LocalRs = localDb.OpenResultset(SQL, rdOpenKeyset, rdConcurRowver)

While Not LocalRs.EOF

BeginTrans
        LocalRs.Edit
                LocalRs!img_arch_stat = "Q"
                        LocalRs!img_arch_date = Now()
            LocalRs.Update

CommitTrans

ProgressBar.Value = ProgressBar.Value + 1
lblCurrent.Caption = ProgressBar.Value

frmUpdateCIS.Refresh
DoEvents

LocalRs.MoveNext
Wend