sqldbtype enum

Public Function value_Type(ByVal sql_dbtype As String) As Integer
        Select Case sql_dbtype
            Case "bigint"
                Return 0
            Case "binary"
                Return 1
            Case "bit"
                Return 2
            Case "char"
                Return 3
            Case "date"
                Return 31
            Case "datetime"
                Return 4
            Case "datetime2"
                Return 33
            Case "datetimeoffset"
                Return 34
            Case "decimal"
                Return 5
            Case "float"
                Return 6
            Case "image"
                Return 7
            Case "int"
                Return 8
            Case "money"
                Return 9
            Case "nchar"
                Return 10
            Case "ntext"
                Return 11
            Case "nvarchar"
                Return 12
            Case "real"
                Return 13
            Case "smalldatetime"
                Return 15
            Case "smallint"
                Return 16
            Case "smallmoney"
                Return 17
            Case "structured"
                Return 30
            Case "text"
                Return 18
            Case "time"
                Return 32
            Case "timestamp"
                Return 19
            Case "tinyint"
                Return 20
            Case "udt"
                Return 29
            Case "uniqueidentifier"
                Return 14
            Case "varbinary"
                Return 21
            Case "varchar"
                Return 22
            Case "variant"
                Return 23
            Case "xml"
                Return 25
            Case Else
                Return -1
        End Select
    End Function

fuente