<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\inetpub\vhosts\db.mdb")

Parametro1=Request.Form("Campo1")
Parametro2=Request.Form("Campo2")
Parametro3=Request.Form("Campo3")

set objRs = objConn.Execute("INSERT INTO VIAGGIO (Codice_autorizzazione Data_autorizzazione Tipo_veicolo) VALUES ('"& PARAMETRO1 &"','"& PARAMETRO2 &"' ,"& PARAMETRO3 &"' ) ")

objConn.Close
Set objConn = Nothing %>

In pratica non apari il recorset che non serve eseguendo direttamente INSERT INTO con (execute) non sono sicuro che risolvi ma provare non costa niente.