[maram2423]

كود :

  Dim f As Integer
        f = 0
        con1.Open()
        sh1.CommandText = "select * from stu1 where set_na='" + T1.Text + "'"
        Dim r1 As SqlDataReader
        r1 = sh1.ExecuteReader
        If r1.Read Then
           f = 1
           T2.Text = r1("set_na")
           T1.Text = r1("set_no")
       End If
       con1.Close()
       If f = 0 Then
           MsgBox(" المطلوب غير موجود")

       End If

السلام عليكم ......الكود يعمل بشكل صحيح بكن المشكلة عند الضغط علي زر البحث ويكن الtext فارغ  تظهر لي رسالة المطلوب غير موجود هل هناك حل لهذه المشكلة .......