Can anyone help me. I have been able to abstract from my MyFile.mdb database all the Tables that are contained within.

The following seems to work.

For Each Td In Data1.Database.TableDefs
If (Left(Td.Name, 4) <> "MSys") Then
CBox1.AddItem Td.Name
Else
'Add Nothing
End If
Next

As well as adding the table names to a combobox I get other entries such as

MSysQueries
MSysACE's
MSysRelationships
MSysObjects

As you can see I'm removing these entries by using the If (Left(Td.Name, 4) <> "MSys") Then statement.

Is there a better or even correct way of gettting the Table names without the MSys...

Thanks