Hola Comsis:
Sobre ese codigo...para pasarlo a DSN es bien facil.
Mira vas al panel de control y seleccionas fuentes de ODBC y alli creas un DSN por ejemplo==>PRUEBA y conectas a tu base de datos.
y en el codigo solo tienes que hacer este cambio.
Set db = server.CreateObject"ADODB.Recordset")
db.Open "tabla","DSN=Prueba;", 1, 2, 2
db.addnew
db.fields("nomCampo") = "algo"
db.Update
db.close
set db = nothing
te recomiendo que utilices siempre fields por que hay momentos que puede causar problemillas.
Saludos,
Yvan CH.
