template semplice semplice (necessita di mdac installato sul pc)
dim objconn = createObject("ADODB.Connection")
objconn.open "uid=user;pwd=password;dsn=nome_conn_odb"
dim objrs = objconn.execute("select * from tabella")
do while not objrs.eof
campo = objrs("nomecampo").value
objrs.movenext
loop
Luigi Di Biasi
http://blogs.dotnethell.it/luigidibiasi/
http://www.dibiasi.it/