Public Function UserFildesType(ByVal FieldsName As String, ByVal TableName As String) As Integer
'============================================================
'  项目名称:   CommUserFilter
'  过程函数名: UserFildesType       类型:Function
'------------------------------------------------------------
'  版权所有:何勇
'  作　　者:何勇
'------------------------------------------------------------
'  参　　数:FieldsName As String       字段名
'           TableName As String        表名
'  返　　回:字段的类型
'
'  调用方法: UserFildesType("编号","表1")
'------------------------------------------------------------
'  说　　明:检测字段的类型
'------------------------------------------------------------
'  修订历史:2006-11-19
'============================================================
    On Error GoTo Err:
    Dim Rs As ADODB.Recordset
    Dim strSQL As String

    '设置SQL语句
    strSQL = "Select top 1 * FROM " & TableName

    '初始化
    Set Rs = New ADODB.Recordset

    '连接SQL
    Rs.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic

    '字段类型
    UserFildesType = Rs.Fields(FieldsName).Type

    '数字,自动编号3;文本202;日期7;备注,超链接203;逻辑11;货币6'OLE 对象205

    '关闭连接
    Rs.Close
    Set Rs = Nothing

Err:
    Exit Function
End Function