Guarda in questo articolo se stai programmando in ADO trovi la corrispondenza tra il numero ed il tipo e se crei una funzione come questa che io ho copiato dall'help, hai risolto :

http://www.soft-land.org/cgi-bin/doc...d&tpl=doc#type

codice:
Public Function FieldType(intType As Integer) As String

   Select Case intType
      Case adChar
         FieldType = "adChar"
      Case adVarChar
         FieldType = "adVarChar"
      Case adSmallInt
         FieldType = "adSmallInt"
      Case adUnsignedTinyInt
         FieldType = "adUnsignedTinyInt"
      Case adDBTimeStamp
         FieldType = "adDBTimeStamp"
   End Select

End Function
Spero sia chiaro. Ciao