К сожалению, нет никакого способа через вызов SQL, если вы не используете что-то вроде OleDbConnection.GetOleDbSchemaTable .
Вы можете определить, установлено ли сжатие Unicode, посмотрев, содержит ли объект поля Свойство с именем UnicodeCompression
.Итак, что-то вроде:
Public Sub HasUnicodeCompression( field As DAO.Field )
Dim oProperty As DAO.Property
For Each oProperty In field.Properties
If oProperty.Name = "UnicodeCompression" Then
HasUnicodeCompression = True
Goto CleanUp
End If
Next oProperty
HasUnicodeCompression = False
CleanUp:
Set oProperty = Nothing
End Sub