Quando fai
rs.open strSql,strConn

non devi usare la stringa di connessione ma una connessione
codice:
set rs =server.createObject("ADODB.Recordset")
strConn="driver={Microsoft Access Driver (.mdb)}; " 
strConn=strConn & " DBQ=" & Server.MapPath("database.mdb") 
strSql= strQuery & strValori

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn

rs.open strSql,Conn
set rs=nothing