Prova con

Rs.Open "Select dc15 From tb_daticostanti",obj_conn,3,3