|I find it painful to read VB so I won't try to see where you are going wrong. Here is an alternate way of deleting all items from a list that may not be as efficient but for lists with a reasonable number of items the efficiency will not matter.
Go through the list items and get a list of GUIDs of the list items.
SPListItemCollection listItems = oWeb.Lists["List Name"].Items;
List<GUID> listGUID = new List<GUID>();
foreach (SPListItem Item in listItems)
Translate that to VB.
Then go through the list of GUIDs and delete each one. Update the list after you are finished and the items will be gone.
The report of my death was an exaggeration - Mark Twain
Think inside the box! ProActive Secure Systems
I'm on-line therefore I am.