I used to use a little code to get the table names for my programs like this...
Private Function GetTbl()
Dim TblNM As String
Dim mytest As String

Set db = OpenDatabase(dbOPEN)
For Each tbl In db.TableDefs

TblNM = tbl.Name
mytest = Left$(TblNM, 3)
If mytest <> "MSy" Then
List1.AddItem TblNM ' + fld.Name
Debug.Print TblNM ', fld.Name
End If
Next

End Function

Now I am learning ADO and I don't know how to get the table names.

Please help.

Thank you
Leo Koach
[email protected]