Dim rdr As SqlDataReader

      Dim ss as string = "SELECT Distinct StudentID, Term FROM YourFile "
      ss = ss & " Where Term = '" & yTerm & "' order by StudentID "

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

      While rdr.Read()

        vStudentID = Trim(rdr("StudentID"))

      End While

      conn.Close()
      rdr.Close()

Hosted by www.Geocities.ws