VB6 - tipo di dato in tabella

[pellolo]

Buongiorno a tutti!!!

quale e' il modo piu' semplice per accedere in vb6 ad una tabella (sqlserver o access) e riuscire a risalire al tipo di dato che ho estratto?

Mi spiego meglio... supponiamo di avere una tabella con due campi : NOME di tipo alfanumerico, e ETA di tipo numerico.

Mi serve risalire al numero dei campi della tabella (nel caso dell'esempio 2) e al tipo di ogni campo (alfanumerico, numerico).

Scusate la poca chiarezza nell'espormi...

grazie in anticipo.

[xegallo]

la proprietà type dell'oggetto field restituisce il tipo di dato

[pellolo]

Mi potresti fare un esempio di codice??

Grazie...

[xegallo]

Select Case rs.Fields(j).Type
    Case Is = dbBigInt, dbByte, dbDouble, dbCurrency, dbInteger, dbLong, dbLongBinary, _
      dbDecimal, dbFloat, dbNumeric, dbSingle
        s = s & rs.Fields(j).Value & ", "
    Case Is = 8 'timestamp o data
        If IsNull(rs.Fields(j).Value) Then
            sTemp = "Null"
        Else
            If Len(Trim$(rs.Fields(j).Value)) = 10 Then
                sTemp = "'" & Format$(rs.Fields(j).Value, "yyyy-mm-dd") & "'" 'data
            Else
                sTemp = "'" & Format$(rs.Fields(j).Value, "yyyy-mm-dd-hh.nn.ss") & ".000000'" 'timestamp
            End If
        End If
        s = s & Trim$(sTemp) & ", "
    Case Else
        If InStr(rs.Fields(j).Value, "'") > 0 Then
            sTemp = Replace(rs.Fields(j).Value, "'", "''")
        Else
            sTemp = rs.Fields(j).Value
        End If
        s = s & "'" & Trim$(sTemp) & "', "
End Select

[pellolo]

Ti ringrazio!!!!