Если определяю тип поля через АДО, то работает.
Function FieldTypeADO(ByVal strTable As String, ByVal strField As String) As Integer
Dim ctlg As New ADOX.Catalog, strType As Integer
On Error GoTo ERRHANDLER
ctlg.ActiveConnection = CurrentProject.Connection
strType = ctlg(strTable).Columns(strField).Type
FieldTypeADO = strType
Exit Function
ERRHANDLER:
FieldTypeADO = Err.Number
Set ctlg = Nothing
End Function
А такая функция в ДАО выдает ошибку 3265
Function FieldTypeDAO(ByVal strTable As String, ByVal strField As String) As Integer
Dim strType As Variant
On Error GoTo ERRHANDLER
strType = CurrentDb.QueryDefs(strTable).Fields(strField).Type
FieldTypeDAO = strType
Exit Function
ERRHANDLER:
FieldTypeDAO = Err.Number
End Function
Подскажите что я делаю не правильно.