Public Function ColumnType(iType As Integer) As String
Select Case intType
Case adInteger
ColumnType =  "NUMBER" 
Case adDecimal
ColumnType =  "NUMBER" 
Case adNumeric
ColumnType =  "NUMBER" 
Case adSingle
ColumnType =  "NUMBER" 
Case adDouble
ColumnType =  "NUMBER" 
Case adDate
ColumnType =  "DATE" 
Case adChar
ColumnType =  "VARCHAR2" 
Case adVarChar
ColumnType =  "VARCHAR2" 
Case adLongVarChar
ColumnType =  "LONG" 
Case adLongVarBinary
ColumnType =  "LONG RAW" 
Case adVarBinary
ColumnType =  "RAW" 
Case adBinary
ColumnType =  "RAW" 
Case adDBTimeStamp
ColumnType =  "DATE" 
Case Else
ColumnType =  "Unknown "  & intType
End Select
End Function