codice:
Dim dbl_valore

dbl_valore = Cdbl(objRs( "nome_campoDecimal" )

dovrebbe andare