Access获取字段的数据类型

在添加数据的时候，我们可能判断需要判断该字段的数据类型

因为数据类型的限制，未必能正常录入。而且不同数据类型，对于获取变量的写法也不一样，详细代码：

Function myfun(fld, sqlStr) As String
    
    Dim rs As New ADODB.Recordset
    rs.Open sqlStr, CurrentProject.Connection, adOpenKeyset, adLockPessimistic
   
     Dim typ As Integer
    Dim variant_type As Variant
    typ = rs.Fields("" & fld & "").Type

    Select Case typ
    Case 202, 203
        variant_type = "文本"
    Case 2, 3, 4, 5, 6, 17, 131
        variant_type = "数字"
    Case 7
        variant_type = "日期/时间"
    Case 9
        variant_type = "ole对象"
    Case 11
        variant_type = "布尔"
    Case 0
        variant_type = "empty"
    Case 1
        variant_type = "null"
    Case 10
        variant_type = "error"
    Case Else
        variant_type = "其他的数据类型"
    End Select
    myfun = variant_type
End Function

调用函数：myfun("交易类型","yw")