Si può facendo: rs("nomecampo").Type, i valori che ritornano sono differenti tra ADO e DAO.
Se invece devi memorizzare conoscere i valori di tutti i Type della tua tabella puoi fare:
codice:
    If Not rs.EOF Then
        i = 0
        For Each Fld In rs.Fields
             a(i)= rs.Fields.Item(i).Name 'nome
             b(i)= rs.Fields.Item(i).Type  'tipo
             c(i) = rs.Fields.Item(i).DefinedSize 'dimensioni
             i = i + 1
        Next

    End If