<%
'Declare object
  Dim objWiz  
'Create an instance
  Set objWiz = Server.CreateObject("AspWebSolution.ReportWizard2")  
      
'Create database connection
objWiz.Init("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE= "& Server.MapPath("/web/test/Sample/data/sample.mdb") & ";")  
  
objWiz.DisplayReports  
  
  Set objWiz =  Nothing
%>