<%@ Page language= "VB"%>
<%@ Import namespace= "System.Data"%>
<%@ Import namespace= "System.Data.ADO"%>
<script language= "VB" runat= "Server" >
Sub Subbtn_onclick (Sender as Object, E as EventArgs)
Dim Connobj as ADOConnection
Dim Dtscmdobj as Adodatasetcommand
Dim Dtsobj as DataSet
Dim Str_sql as String
Dim conn_str As String
Str_sql = "SELECT * FROM table_name"
Conn_str = "dbq=" & Server.MapPath ("Database.mdb") &_
";D river={microsoft Access Driver (*.mdb)};"
Connobj = New adoconnection (conn_str)
Dtscmdobj = New Adodatasetcommand (str_sql, Connobj)
Dtsobj = New DataSet ()
Dtscmdob.filldataset (Dtsobj, "table_name")
Dtgrid. DataSource = Dtsobj. Tables ("table_name"). DefaultView
Dtgrid. DataBind ()
End Sub
</script>
<body>
<form action= "db.aspx" method= "POST" runat= "Server" >
<asp:button type= "Submit" id= "subbtn" text= "Run Query" runat= "Server"/>
</form>
<asp:datagrid id= "Dtgrid" headerstyle-font-bold= "True" tooltip= "data Grid provided with asp+" runat= "Server" Maintainviewstate= "false"/>
</body>
