سؤال طريقه البحث فى جدول البيانات

السلام عليكم ورحمه الله

لدى مشروع صغير متصل بقاعده بيانات

المشروع هو مشروع لشركه وعند اضافه كل نوع يتم اضافه الاسم والعنوان وهكذا

انا عاوز لما استعلم عن نوع الاكبر كثافه من "10" درجات مثلا يظهرو

كثافه الاصغر من 10 درجات

الكثافه اصحاب 10 درجات

طبعا ال 10 دى بتتغير على حسب ادخال المستخدم

انا الناتج بيطلع فى صفحه تانيه فى داتا جريد

انا جربت الكود ده بس للاسف لما بعمل مثلا اكبر 2100000 بيجبلى صاحب 2100

الى بيظبط هو الى = بس

r 1,2,3

ده RadioButton

 If r1.Checked = True Then
            Dim dss As New DataSet
            Dim adq As New SqlClient.SqlDataAdapter

            Dim cmdw As New SqlClient.SqlCommand
            cmdw.Connection = cn
            cmdw.CommandType = CommandType.Text
            cmdw.CommandText = "select * from ann where nom >'" & TextBox1.Text & "'"
            adq.SelectCommand = cmdw
            adq.Fill(dss, "ann")
            resalet.DataGridView1.DataSource = dss.Tables("ann")
            resalet.Show()


        ElseIf r2.Checked = True Then
            Dim dss As New DataSet
            Dim adq As New SqlClient.SqlDataAdapter

            Dim cmdw As New SqlClient.SqlCommand
            cmdw.Connection = cn
            cmdw.CommandType = CommandType.Text
            cmdw.CommandText = "select * from ann where nom <'" & TextBox1.Text & "'"
            adq.SelectCommand = cmdw
            adq.Fill(dss, "ann")
            resalet.DataGridView1.DataSource = dss.Tables("ann")
            resalet.Show()


        Else
            Dim dss As New DataSet
            Dim adq As New SqlClient.SqlDataAdapter

            Dim cmdw As New SqlClient.SqlCommand
            cmdw.Connection = cn
            cmdw.CommandType = CommandType.Text
            cmdw.CommandText = "select * from ann where nom ='" & TextBox1.Text & "'"
            adq.SelectCommand = cmdw
            adq.Fill(dss, "ann")
            resalet.DataGridView1.DataSource = dss.Tables("ann")
            resalet.Show()
        End If