VBA与数据库——写个类操作ADO_读取字段信息

Function GetFieldsInfo(sTableName As String, ret() As FieldInfo) As RetCode
    On Error GoTo errHandle
    
    Dim rst As ADODB.Recordset
    Set rst = adoconn.Execute("select * from " & sTableName & " where 1=2", adOpenForwardOnly, adLockReadOnly)
    
    ReDim ret(rst.Fields.Count - 1) As FieldInfo
    Dim i As Long
    For i = 0 To rst.Fields.Count - 1
        ret(i).SName = rst.Fields(i).name
        ret(i).IType = rst.Fields(i).Type
        ret(i).SType = GetFieldStrType(ret(i).IType)
    Next
    
    GetFieldsInfo = RetCode.SuccRT
    
    Exit Function
errHandle:
    GetFieldsInfo = ERROR_NO
    StrErr = Err.Description
End Function

Private Function GetFieldStrType(i As DataTypeEnum) As String
    Select Case i
    Case adArray
        GetFieldStrType = "adArray"
    Case adBigInt
            GetFieldStrType = "adBigInt"
    Case adBinary
            GetFieldStrType = "adBinary"
    Case adBoolean
            GetFieldStrType = "adBoolean"
    Case adBSTR
            GetFieldStrType = "adBSTR_Char"
    Case adChapter
            GetFieldStrType = "adChapter"
    Case adChar
            GetFieldStrType = "adChar"
    Case adCurrency
            GetFieldStrType = "adCurrency"
    Case adDate
            GetFieldStrType = "adDate"
    Case adDBDate
            GetFieldStrType = "adDBDate"
    Case adDBTime
            GetFieldStrType = "adDBTime"
    Case adDBTimeStamp
            GetFieldStrType = "adDBTimeStamp"
    Case adDecimal
            GetFieldStrType = "adDecimal"
    Case adDouble
            GetFieldStrType = "adDouble"
    Case adEmpty
            GetFieldStrType = "adEmpty"
    Case adError
            GetFieldStrType = "adError"
    Case adFileTime
            GetFieldStrType = "adFileTime"
    Case adGUID
            GetFieldStrType = "adGUID"
    Case adIDispatch
            GetFieldStrType = "adIDispatch"
    Case adInteger
            GetFieldStrType = "adInteger"
    Case adIUnknown
            GetFieldStrType = "adIUnknown"
    Case adLongVarBinary
            GetFieldStrType = "adLongVarBinary"
    Case adLongVarChar
            GetFieldStrType = "adLongVarChar"
    Case adLongVarWChar
            GetFieldStrType = "adLongVarWChar"
    Case adNumeric
            GetFieldStrType = "adNumeric"
    Case adPropVariant
            GetFieldStrType = "adPropVariant"
    Case adSingle
            GetFieldStrType = "adSingle"
    Case adSmallInt
            GetFieldStrType = "adSmallInt"
    Case adTinyInt
            GetFieldStrType = "adTinyInt"
    Case adUnsignedBigInt
            GetFieldStrType = "adUnsignedBigInt"
    Case adUnsignedInt
            GetFieldStrType = "adUnsignedInt"
    Case adUnsignedSmallInt
            GetFieldStrType = "adUnsignedSmallInt"
    Case adUnsignedTinyInt
            GetFieldStrType = "adUnsignedTinyInt"
    Case adUserDefined
            GetFieldStrType = "adUserDefined"
    Case adVarBinary
            GetFieldStrType = "adVarBinary"
    Case adVarChar
            GetFieldStrType = "adVarChar"
    Case adVariant
            GetFieldStrType = "adVariant"
    Case adVarNumeric
            GetFieldStrType = "adVarNumeric"
    Case adVarWChar
            GetFieldStrType = "adVarWChar"
    Case adWChar
            GetFieldStrType = "adWChar"
        
    Case Else
        GetFieldStrType = "UnKnowDataType"
    End Select
End Function