How to query an Access database with ASP using a DSN-less connection

<%
 Dim cnnSimple  ' ADO connection
 Dim rstSimple  ' ADO recordset
 Set cnnSimple = Server.CreateObject("ADODB.Connection")
 
' DSNLess
 cnnSimple.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\test.mdb"))
 
Set rstSimple = cnnSimple.Execute("SELECT * FROM tbltest")
 %>
 
<P> Connecting to Access with Ole connection </P>
 <table border="1">
 
<%
 Do While Not rstSimple.EOF
 %>
 
 <tr>
   <td><%= rstSimple.Fields(0).Value %></td>
   <td><%= rstSimple.Fields(1).Value %></td>
  </tr>
 
<%
 rstSimple.MoveNext
 Loop
 %>
 
</table>
 
<%
 rstSimple.Close
 Set rstSimple = Nothing
 cnnSimple.Close
 Set cnnSimple = Nothing
 %>