Dim c As ADOX.Catalog
Set c = New ADOX.Catalog
c.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;"
MsgBox c.Tables("Table1").Columns("ID").Properties("Description").Value
c.ActiveConnection.Close
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 152