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

Programming, error messages and sample code > sample code
 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
   <td><%= rstSimple.Fields(0).Value %></td>
   <td><%= rstSimple.Fields(1).Value %></td>
 Set rstSimple = Nothing
 Set cnnSimple = Nothing