مساعده في قراءة قاعدة البيانات

السلام عليكم ورحمة الله وبركاته

بعد عناء تم تفعيل عضويتي بالمنتدى والحمد لله

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

انا استخدم هذا الكود للبحث في قادة البيانات

 Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If RadioButton1.Checked = True Then
            Dim x As String = InputBox("ادخل اسم البحث", "البحث بالاسم")
            Me.FielhotilBindingSource.Filter = "i1 LIKE '" & x & "%'"
            If Me.FielhotilBindingSource.Count = 0 Then
                MsgBox("صاحب الاسم المدخل غير موجود", MsgBoxStyle.Information, "البحث بالاسم")
                Me.FielhotilBindingSource.RemoveFilter()
            End If
            Exit Sub
        End If
        If RadioButton2.Checked = True Then
            Dim xx As String = InputBox("ادخل رقم الغرفه", "البحث برقم الغرفه")
            Me.FielhotilBindingSource.Filter = "i9 LIKE '" & xx & "%'"
            If Me.FielhotilBindingSource.Count = 0 Then
                MsgBox("الغرفه فارغه", MsgBoxStyle.Information, "البحث برقم الغرفه")
            End If
            Exit Sub
        End If
        If RadioButton3.Checked = True Then
            Dim xxx As String = InputBox("ادخل رقم السند'", "البحث برقم السند")
            Me.FielhotilBindingSource.Filter = "i4 LIKE '" & xxx & "%'"
            If Me.FielhotilBindingSource.Count = 0 Then
                MsgBox("رقم السند غير موجود", MsgBoxStyle.Information, "البحث برقم السند")
            End If
        End If
    End Sub

وهو يعمل بشكل جيد

ما اريده هو ان يقوم الفورم3 و في وضع لود بالبحث في قاعدة البيانات و في حقل محدد عن قيمه نصيه

و في حال وجد هذه القيمه يقوم بتنفيذ تغيرات على الفورم

نفسر شويه كمان

انا اقوم بعمل فورم به عدة ازرار وكل زر له قيمة ربما تكون مدرجه في قاعدة البيانات

ما اريده ان يقوم الفورم بالبحث في حقل من حقول الجدول عن هذه القيمه و في حال وجدها يغير لون الزر

ارجو ان تساعدوني ف هذا الامر

بارك الله فيكم وغفر لوالديكم وجعلكم من العاملين على ذكاة العلم