Visual Basic and PostgreSQL ODBC

Hi,


Ok I have a problem, that I need to find a fix or workaround for. I have a
Visual Basic 6 application that calls on a PostgreSQL database. I have code
that calls a table and runs a loop on it, deleting recordsets until the
recordcount equals a certain number.. The code deletes the records fine, the
problem is the recordcount doesn't change.. Does anyone know what is going
on and how to fix it?  Thank you


Ryan

VB CODE

        rstRecord2.MoveFirst
    Do Until rstRecord2.RecordCount = 0
        rstRecord2.Delete
      rstReocrd2.MoveNext
        Debug.Print rstRecord2.RecordCount
    Loop