Вам лучше использовать библиотеку DAO для этого, если вы нацеливаетесь только на Доступ к БД
С помощью DAO вы можете открыть базу данных, установить запись и получить доступ к этому свойству, используя Columns (colNumber) .Properties ("Format").
Если вы не знаете, как использовать DAO - дайте мне знать.
РЕДАКТИРОВАТЬ: VB6-код с использованием DAO для получения свойства Format
Dim db As DAO.Database, rst As DAO.Recordset
Set db = OpenDatabase("Path to my MDB file")
Set rst = db.OpenRecordset("select myDateColumn From myTable WHERE 1 = 2")
MsgBox rst.Fields("myDate").Properties("Format").Value
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing