Removing the MSys table names

I am loading the names of the tables from a database into a listbox and using them to open recordsets. The only problem is that is adds all The Msys table names too. I was removing them using the .removeitem method but it is giving me errors now. does anyone have any ideas on how to remove the five msys table names?

The trick here is not to remove them, but to keep them from being added in the first place. Like so...

Code:

---

For iCtr1 = 0 To MY_DB.TableDefs.Count - 1

        If Left(MY_DB.TableDefs(iCtr1).Name, 4) <> "MSys" Then
            MyListBox.AddItem MY_DB.TableDefs(iCtr1).Name
        End If

    Next iCtr1

---

[Edited by Jeff Carlin on 11-19-2000 at 11:42 AM]

Thanks man works great!