<%@ Page Language="VB" AutoEventWireup="True" Debug="true"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script runat="server">
      Dim MyConnection as OleDbConnection
      Dim lblNewID,lblNewName,lblNewSex as Label
      Dim dataItem as DataGridItem

      Sub Page_Load(sender As Object, e As EventArgs) 
          MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" + Server.MapPath(".")+"/db/Students.mdb")

         If Not IsPostBack Then 
            BindGrid()
         End If
      End Sub

      Sub BindGrid() 
          Dim MyCommand As OleDbDataAdapter = new OleDbDataAdapter("SELECT * FROM [studentifo]", MyConnection)
          Dim DS As DataSet = new DataSet()
          MyCommand.Fill(DS,"student") 
          MyDataGrid.DataSource = DS.Tables("student").DefaultView
          MyDataGrid.DataBind()
      End Sub

      Sub btnShowStudent_Click(sender As Object, e As EventArgs) 
          For Each dataItem in MyDataGrid.Items
              lblNewID = dataItem.FindControl("lblID")
              lblNewName = dataItem.FindControl("lblName")
              lblNewSex = dataItem.FindControl("lblSex")
              Response.Write(lblNewID.Text & "&nbsp;&nbsp;" & lblNewName.Text & "&nbsp;&nbsp;" & lblNewSex.Text & "<BR>")
          Next
      End Sub
</Script>

<form runat="server">
<asp:Button ID="btnShowStudent" Text="SHOW" Runat="server" OnClick="btnShowStudent_Click"/>
    <asp:DataGrid id="MyDataGrid" 
           runat="server"
           AutoGenerateColumns="False"
           Width="200">
         <HeaderStyle BackColor="Navy" 
                      ForeColor="White" 
                      Font-Bold="True" 
                      HorizontalAlign="Center"/>
      <Columns>
         <asp:TemplateColumn HeaderText="ID">
            <ItemTemplate>
                <asp:Label ID="lblID"  Text='<%#(Container.DataItem("id"))%>' Runat="server"/>        
            </ItemTemplate> 
        </asp:TemplateColumn>         
        <asp:TemplateColumn HeaderText="Name">
            <ItemTemplate>
                <asp:Label ID="lblName"  Text='<%#(Container.DataItem("name"))%>' Runat="server"/>    
            </ItemTemplate> 
        </asp:TemplateColumn> 
         <asp:TemplateColumn HeaderText="Sex">
            <ItemTemplate>
                <asp:Label ID="lblSex"  Text='<%#(Container.DataItem("sex"))%>' Runat="server"/>    
            </ItemTemplate> 
        </asp:TemplateColumn> 
      </Columns>
      </asp:DataGrid>
</form>