Below is some pseudo code that does not show an insert after a transaction
has finished.  The database is Access 97.  The insert does show after some
short (secounds?) period of time.

        Set Rec = New ADODB.Recordset

        SqlStr = "select * from tmp"

        Rec.Open SqlStr, db, adOpenDynamic, adLockOptimistic, adCmdText

        db.BeginTrans

        AttachRec.AddNew

        Rec("TempInt") = 1

        AttachRec.Update

         db.CommitTrans

         DoEvents
         AttachRec.Close
         SqlStr = "select * from tmp where tmp.tmpint = 1"
         Rec.Open SqlStr, db, adOpenDynamic, adLockOptimistic
         If Rec.RecordCount <= 0 Then
            MsgBox "Record not inserted"
         End If