ss = "SELECT  StudentID, Term, LastName, FirstName from CalWorks "
      If IsNumeric(TextBox1.Text) Then
         ss = ss & " where(StudentID like '%" & TextBox1.Text & "%') "
      Else
         ss = ss & " where(LastName like '%" & TextBox1.Text & "%') "
         ss = ss & " or (FirstName like '%" & TextBox1.Text & "%') "
      End If
      ss = ss & " Order by LastName, FirstName, Term "

      Dim ConnStr As String = Session("ConnectString")
      Dim conn As New SqlConnection(ConnStr)
      Dim Cmd As New SqlCommand(ss, conn)
      conn.Open()
      DataGrid1.DataSource = Cmd.ExecuteReader()
      DataGrid1.DataBind()
      conn.Close()


Hosted by www.Geocities.ws