Mi Sapete dire cosa stia sbagliando?

' apertura conn
Dim Conn
Set conn = Server.CreateObject("ADODB.Connection")
' la stringa di conn
conn.connectionstring= "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/citazioni.mdb")
'strConn
conn.Open
' query SQL
Dim strSQLMax
strSQLMax = "SELECT Max(ID) as MaxVal FROM tbl_citazioni ORDER BY ID"
Dim strSQL
strSQL = "SELECT Top 1 * FROM tbl_citazioni Order by ID"
' estrai valore massimo
Set rs = conn.Execute(strSQLMax)
set intMax = rs("maxVal")
rs.Close
set rs = Nothing
' genera valora casuale
Randomize()
intRandom = CInt ((Rnd() * intMax) + 1)
' estrai record
Dim rs
Set rs = conn.Execute(strSQL & intRandom)
' visualizza in qualche modo
response.write "" & rs("citazione") & "."
response.write "[" & rs("autore") & "]"
rs.Close
set rs = Nothing
' chiusura conn
conn.Close
set conn = Nothing
Grazie