Hello all!

I must be missing something with my code here because I'm getting an error 45 when running the script below.  It's intended to delete all entries in AP Check Maintenance.  Any suggestions?

Thanks!

---------------------------------------------------------------------------------------------------------------

Dim oCheckEntry
Dim retVal

Set oCheckEntry = oSession.AsObject(oSession.GetObject("AP_Check_bus"))

retVal = oCheckEntry.MoveFirst()

do while oCheckEntry.EOF <> 1
retVal = oCheckEntry.Delete()

oCheckEntry.MoveNext()

loop