<%@ import namespace="system.data.oleDb" %>

<Script runat="server">

Sub page_load

 Dim dbconn as oledbConnection
 Dim dbCMD as oleDbCommand
 Dim dtr as oledbdatareader

 ' Server.MapPath("[relative path to your database]")
 dbConn = New oledbConnection ("PROVIDER= Microsoft.ACE.OLEDB.12.0;DATA Source=" & server.MapPath("/test.accdb"))
 dbConn.open()
 dbCMD = new oleDbCommand ("select * from tblContact",dbconn)
 dtr = dbCMD.executereader()

 While dtr.read()
  response.write ("<li>")
  response.write (dtr(0) & "---" & dtr(1))
 End while

 dtr.close()
 dbConn.close()

End Sub

</Script>