<%@ Import Namespace = "System.Data" %>
<%@ Import Namespace = "System.Data.OleDb" %>
<script runat="server" language="vb">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
If Not Page.IsPostBack Then
bindAuthors()
End If
End Sub
Protected Sub bindAuthors()
Dim mdbPath As String = "D:\AccessData\Biblio2002.mdb"
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath
Dim cn As New OleDbConnection(connString)
Dim cmdText As String = "Select Top 100 * From Authors Order By Author"
Dim cmd As New OleDbCommand(cmdText, cn)
cmd.Connection.Open()
gridAuthors.DataSource = cmd.ExecuteReader(CommandBehavior.CloseConnection)
gridAuthors.DataBind()
End Sub
</script>
<html>
<body>
<form runat="server">
<asp:DataGrid
Runat="server"
AutoGenerateColumns="True"
ID="gridAuthors"/>
</form>
</body>
</html>