Projeye Microsoft ActiveX Database Components 2.5 veya
yukarısını referans gosterin ve de kodu yapıştırın.

Dim dbvbt As New adodb.Connection

Dim rsvbt As New adodb.Recordset



dbvbt.Open "Driver=;" & _

"DBQ=C:\vbturk.mdb"



Set rsvbt = dbvbt.OpenSchema(adSchemaTables)



Do Until rsvbt.EOF

If UCase(rsvbt("TABLE_TYPE")) = "TABLE" Then

MsgBox rsvbt("TABLE_NAME")

End If

rsvbt.MoveNext

Loop

rsvbt.Close
Turkish coder Baksana59
__________________