Visual Basic - Consulta rara

Quisiera saber si es posible hacer una consulta a una base de datos access 97 cuya respuesta sea todos los nombres de las tablas que pertenezcan a dicha base de datos.
Se aceptan códigos de ejemplo :)
Muchas gracias... NMB

Si loque tienes que hacer es rellenar un objeto List con todos esos nombres recorriendote todos los objetos table de la database con un FOR, ahora no encuentro el código que yo tenía pero si lo encuentro te lo enviaré.

Adolfo Ruiz:
Muy agradecido por tu ayuda, te comento que lo que quiero hacer es actualizar una base de datos agregando tablas ó actualizando las que ya están.
Es largo de explicar...
Te mando el código que usé para probar lo que me sugeriste:
Private Sub Form_Load()
Set dbsVademecums = DBEngine.Workspaces(0).OpenDatabase("D:\Farmaservis\Vademecums.mdb", False, False)
With dbsVademecums
For i = 0 To .TableDefs.Count - 1
If Mid(.TableDefs(i).Name, 1, 4) <> "MSys" Then
List1.AddItem .TableDefs(i).Name
End If
Next i
End With
End Sub

muchas gracias