Removing the MSys table names

[chongo 2002]

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?

[Jeff Carlin]

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

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]

[chongo 2002]

Thanks man works great!