Dim ss As String = "SELECT count(*) from Terms where Term = '" & vTerm & "' "
Dim ConnStr As String = Session("ConnectString")
Dim conn As New SqlConnection(ConnStr)
Dim Cmd As New SqlCommand(ss, conn)
conn.Open()
Dim vCount As Integer = Cmd.ExecuteScalar()
conn.Close()
