<%@ Page Language="VB" AutoEventWireup="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Color" %>

<html>
  <script runat="server">
     dim MyConnection as OleDbConnection
     dim cmdSelect as OleDbCommand
     dim dtrReader as OleDbDataReader

     Sub Page_Load(sender As Object, e As EventArgs) 
          'MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\inetpub\wwwroot\nhonline\datagrid\kk.mdb")

          'MyConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\cc\;Extended Properties=dBASE IV;User ID=Admin;Password=")

          Dim dpath as string ="c:\database"
          MyConnection = New OleDbConnection("Provider=vfpoledb.1;Data Source=" & dpath & ";Password=MyPassWord;Collating Sequence=general")
         If Not IsPostBack Then 
            BindGrid()
         End If
      End Sub

      Sub MyDataGrid_Page(sender as Object, e As DataGridPageChangedEventArgs) 
         MyDataGrid.CurrentPageIndex = e.NewPageIndex
         BindGrid()
      End Sub

      Sub BindGrid() 
          Dim MyCommand As OleDbDataAdapter = new OleDbDataAdapter("SELECT * FROM ((popm02 INNER JOIN vmsm01 ON popm02_05=vmsm01_01 )INNER JOIN imsm01 ON popm02_11=imsm01_01)", MyConnection)
          Dim DS As DataSet = new DataSet()
          MyCommand.Fill(DS,"min") 
          MyDataGrid.DataSource =DS.Tables("min").DefaultView
          MyDataGrid.DataBind()
          lblCount.Text = DS.Tables(0).Rows.Count.ToString
      End Sub

      Sub Button1_Click(sender As Object, e As System.EventArgs)
    '-------------------
    MyDataGrid.AllowPaging = "false"
    BindGrid()
    '-------------------
          MyDataGrid.SelectedItemStyle.BackColor=Color.white
          MyDataGrid.AlternatingItemStyle.BackColor=Color.white
          MyDataGrid.ItemStyle.BackColor=Color.white
          MyDataGrid.HeaderStyle.BackColor=Color.white
          MyDataGrid.HeaderStyle.ForeColor=Color.red
          Response.ContentType = "application/vnd.ms-excel"
          Response.Charset = ""
          Me.EnableViewState = False
          Dim tw As New System.IO.StringWriter()
          Dim hw As New System.Web.UI.HtmlTextWriter(tw)
          MyDataGrid.RenderControl(hw)
          Response.Write(tw.ToString())
          Response.End()
    '-------------------
    MyDataGrid.AllowPaging = "true"
    BindGrid()
      End Sub
   </script>
<body>
<form runat="server">
      ¦@:<asp:Label id="lblCount" runat="server" forecolor="red"/>
     <asp:Button id="button1" onclick="Button1_Click" text="To EXCEL FILE" runat="server"/>
      <asp:DataGrid id="MyDataGrid" 
           AllowPaging="True" 
           PageSize="200" 
           OnPageIndexChanged="MyDataGrid_Page" 
           AutoGenerateColumns="False"
           runat="server"
           width="1200">
         <HeaderStyle BackColor="Navy" 
                      ForeColor="White" 
                      Font-Bold="True" />
         <PagerStyle Mode="NumericPages" 
                     HorizontalAlign="Right"/>
   <Columns>
       <asp:BoundColumn DataField="popm02_01"/>
       <asp:BoundColumn DataField="popm02_04"/>
       <asp:BoundColumn DataField="popm02_05"/>
       <asp:BoundColumn DataField="vmsm01_02"/>
        <asp:BoundColumn DataField="popm02_11"/>
       <asp:BoundColumn DataField="imsm01_02"/>
       <asp:BoundColumn DataField="imsm01_03"/>
       <asp:BoundColumn DataField="imsm01_04"/>
       <asp:BoundColumn DataField="popm02_13"/>
   </Columns>
</asp:DataGrid>
</form>
</body>
</html>