Il primo presumo sia un errore di copia/incolla... due righe di istruzione sono da separare:

Set Con=Server.CreateObject("ADODB.Connection")

Con.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &_
Server.MapPath("xxxxxxx.mdb")

Il secondo e' piu' subdolo... nonostatnte Access permetta di utlizzare gli spazi nei nomi dei campi delle tabelle, poi non sara' possibile utilizzarli con stringhe SQL... nemmeno con la sintassi:

RecSet(0)=Date()

A questo punto non ti resta che eliminare gli spazi dai nomi

ciao