Access DB Query Prob!

<%
'Dimension variables
'Holds the Database Connection Object
Dim adoCon
'Holds the recordset for the records in the database
Dim rsEvents
'Holds the SQL query to query the database
Dim strSQL

'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("oak.mdb")
'Create an ADO recordset object
Set rsEvents = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database with
strSQL = "SELECT * FROM events order by events.updated DESC LIMIT 0, 1 WHERE events.type = 'past';"
'Open the recordset with the SQL query 
rsEvents.Open strSQL, adoCon
'Loop through the recordset
Do While not rsEvents.EOF
	'Write the HTML to display the contents of the recordset
	Response.Write (rsEvents("ID"))
	Response.Write ("<br>")
	Response.Write (rsEvents("type"))
	Response.Write ("<br>")
	Response.Write (rsEvents("body"))
	Response.Write ("<br>")
	Response.Write (rsEvents("updated"))
	Response.Write ("<br>")
	
	'Move to the next record in the recordset
	rsEvents.MoveNext

Loop

'Reset server variables
rsEvents.Close
Set rsEvents = Nothing
Set adoCon = Nothing

%>

strSQL = "SELECT * FROM events order by events.updated DESC LIMIT 0, 1 WHERE events.type = 'past';"