Bug with ADORecordSet.Update

The "bug" is when I update the table
(described below) all fields with a common "OwnerID" get updated
simultaneously. OwnerID is used to cascade Ledger sub accounts.

CREATE TABLE GeneralLedger (
        AccountSequence integer,
        AccountLevel integer,
        AccountFunction integer,
        Movement varchar(1),
        Postings varchar(1),
        AccountCode varchar(10),
        OwnerID integer,
        Description varchar(255),
        OBalPer0 float,
        PBalPer0 float,
        CBalPer0 float,
        OBalPer1 float,
        PBalPer1 float,
        CBalPer1 float,
        OBalPer2 float,
        PBalPer2 float,
        CBalPer2 float,
        OBalPer3 float,
        PBalPer3 float,
        CBalPer3 float
)

...in VB


Do While mLevel <> 2
    SQL = "SELECT CBalPer0, PBalPer0, OwnerID FROM GeneralLedger " & _
          "WHERE AccountSequence=" & Cstr(mLevel)
    Set Rec = OpenDynamic(SQL)
    mLevel = Rec!OwnerID
    Rec!PBalPer0 = Rec!PBalPer0 + Amount
    Rec!cBalPer0 = Rec!cBalPer0 + Amount
    Rec.Update
  Loop
End Sub

...for now I fixed this by

"SELECT * FROM GeneralLedger WHERE AccountSequence=" & Cstr(mLevel)

Is this a known bug?
Is it caused by no cursor control?



--
Keith Gray

Technical Development Manager
Heart Consulting Services P/L
mailto:keith@heart.com.au