Dim adoxCat As ADOX.Catalog
Dim col As ADOX.Column
Dim strDBPath As String
Set adoxCat = New ADOX.Catalog
strDBPath = FUN_Patch_File(STR_PATH_BAZA, STR_BAZA_NAME) '“C: ExamplDBMyDB.mdb”
adoxCat.ActiveConnection = "provider=Microsoft.JET.OLEDB.4.0;" & _
"data source=" & strDBPath
For Each col In adoxCat(STR_BAZA_NAME).Columns
MsgBox col.Name
Next col
|