Visual Basic - COMOOOO ????? Contenido BD

Hola amigos:

Tengo un problemilla con un programilla. Os explico:

Quiero saber antes de abrir una bd con VB6 y en DAO, que tablas y que campos contiene dicha bd.

Tan solo esto. Me dicen que tengo que hacer un recorrido o algo asi.

Me gustaria, si podeis, enviame un pequeño ejemplo de como se podria hacer.

Saludos y gracias de antemano.

hola te va un poco de codigo

Dim dbsNeptuno As Database
Dim tdfNuevo As TableDef
Dim tdfBucle As TableDef
Dim prpBucle As Property

Set dbsNeptuno = OpenDatabase("Neptuno.mdb")

' Crea un objeto TableDef nuevo, anexa los objetos
' Field a la colección Fields y anexa el objeto
' TableDef a la colección TableDefs del objeto
' Database.
Set tdfNuevo = dbsNeptuno.CreateTableDef("NuevoTableDef")
tdfNuevo.Fields.Append tdfNuevo.CreateField("Fecha", dbDate)

dbsNeptuno.TableDefs.Append tdfNuevo

With dbsNeptuno
Debug.Print .TableDefs.Count & _
"TableDefs en " & .Name

' Enumera la colección TableDefs.
For Each tdfBucle In .TableDefs
Debug.Print " " & tdfBucle.Name
Next tdfBucle

With tdfNuevo
Debug.Print "Propiedades de " & .Name

' Enumera la colección Properties del objeto
' TableDef nuevo, sólo imprime las
' propiedades con valores no vacíos.

For Each prpBucle In .Properties
Debug.Print " " & prpBucle.Name & " - " & _
IIf(prpBucle = "", "[vacío]", prpBucle)
Next prpBucle

End With

' Elimina el TableDef nuevo ya que esto es un
' ejemplo.
.TableDefs.Delete tdfNuevo.Name
.Close
End With

solo en la coleccion de tabledefs existen unas tablas del sistema que inician con msys, solo revisa el nombre d ela tabla....
puedes dar un r

A ver si te sirve este otro también, nada más pones la referencia a microsoft DAO, un botón y dos listbox para que vea bien:

Dim DB As Database

Private Sub Command1_Click()
Dim TDF As TableDef

Set DB = OpenDatabase("C:\MyDB.mdb")
List1.Clear
For Each TDF In DB.TableDefs
If TDF.Attributes = 0 Then 'Esto te excluye las tablas de systema
List1.AddItem TDF.Name
End If
Next TDF
End Sub

Private Sub List1_Click()
Dim F As Field
Dim RS As Recordset

Set RS = DB.OpenRecordset(List1.Text, dbOpenDynaset)
List2.Clear
For Each F In RS.Fields
List2.AddItem F.Name
Next F
RS.Close
End Sub

Necesito ayuda sobre como validar el nombre de usuario en contraseña, jalando estos de una tabla de la base de datos