Sub btnSubmit_Click(s as object, e as eventargs)
	 If Page.IsValid then
		BindToGrid("Evt_ID")
	 End if		
     End Sub

     Sub BindToGrid(SortField as String)     
          Dim strConnect as string
	  Dim objCommand  As OleDBDataAdapter
	  Dim Connsearch1  As OleDBConnection
          Dim strSQL      As String
          Dim objDataSet  As DataSet
	  Dim intTroop As Integer
	  Dim intDate As String
			            
	  intDate = search1Date.text
          intTroop = search1troop.text		  
		  
          strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/inetpub/wwwroot/fpstudents/team2/IUser/girlscouts.mdb;"
          Connsearch1 = New OleDbConnection( strConnect )
		  
		   		  
           dgrRegistry.PageSize = 4
           dgrRegistry.PagerStyle.Mode = PagerMode.NumericPages
           dgrRegistry.PagerStyle.NextPageText = "Next"
           dgrRegistry.PagerStyle.PrevPageText = "Previous"
           dgrRegistry.PagerStyle.Position = PagerPosition.TopAndBottom

          strSQL = "SELECT evt_ID, evt_troop, evt_title, evt_date, evt_time, evt_loc from EventTable order by evt_date "	  
          objCommand = New OleDBDataAdapter(strSQL, connsearch1)

          objDataSet = New DataSet()
	      
	  objCommand.Fill(objDataSet, "strSQL")

          Dim objDataView As DataView = objDataSet.Tables("strSQL").DefaultView
	  If intTroop <> 0 Then
            objDataView.RowFilter = "evt_troop = " & intTroop
	    If intDate <> "" Then
		  objDataView.RowFilter = "evt_date = '" & intDate & "'"
	    End If
          End If   		         

          dgrRegistry.DataSource = objDataView
          dgrRegistry.DataBind()
   End Sub  
  
  Sub Datagrid_PageIndexChanged(Sender As Object, E As DataGridPageChangedEventArgs)
    	dgrRegistry.CurrentPageIndex = E.NewPageIndex
    	dgrRegistry.DataBind()
	
   End Sub
	 
   Sub Grid_Details(sender as Object, e as Datagridcommandeventargs)
	 dim eventid as string
	 eventid = e.item.cells(0).text
	 response.redirect("searchresults1.aspx?ID=" & eventid )
   End Sub		  



 <form action="" name="form1" id="form1" runat="server">
    	Search an Event (Enter zeros to view all EVENTS)
 	Troop# (000000)
        <asp:textbox Columns="5" ID="search1troop" MaxLength="5" runat="server" />
        <asp:requiredfieldvalidator ControlToValidate="search1troop" Text= "Cannot be blank." runat="server" />
        Date (00/00/0000)
	<asp:textbox Columns="10" ID="search1Date" MaxLength="10" runat="server" />
	<img src="cal2.jpg" onMouseUp="getCalendarFor(document.form1.search1Date)">
        <asp:regularexpressionvalidator ControlToValidate="search1Date" Text="Invalid format." 
		validationexpression="\d{2}\/\d{2}\/\d{4}" runat="server" />
        <asp:requiredfieldvalidator ControlToValidate="search1Date" Text= "Cannot be blank." runat="server" />
        <asp:button ID="btnSubmit" runat="server" Text="Submit" OnClick=btnSubmit_Click/></td>
     
	Click Details to view details
	<asp:DataGrid id="dgrRegistry" runat="server" BorderColor="black" Gridlines="Vertical"
	  cellpadding="8" cellspacing="0" width="450" Font-Names="Arial" Font-Size="8pt"
	  OnItemCommand="Grid_details" ShowFooter="True" AllowPaging="True" PageSize=4
	  OnPageIndexChanged="Datagrid_PageIndexChanged" HeaderStyle-BackColor="#cccc99"
	  FooterStyle-BackColor="#cccc99" ItemStyle-BackColor="#ffffff" AutoGenerateColumns="False" >
	  <Columns>
	    <asp:BoundColumn HeaderText="Event ID" DataField="evt_id"/>
	    <asp:BoundColumn HeaderText="troop #"  DataField="evt_troop"/>
	    <asp:BoundColumn HeaderText="Title"    DataField="evt_title"/>
	    <asp:BoundColumn HeaderText="Date"     DataField="evt_date"/>
	    <asp:BoundColumn HeaderText="Location" DataField="evt_loc"/>
	    <asp:ButtonColumn HeaderText="Details" Text="Details" ButtonType="PushButton" CommandName="Details" />			      				
	  </Columns>
	</asp:DataGrid>   		   
</form>