[dubai.eig]

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

عندي فوررم عباره عن ارقام

Label1
Label2
Label3

وهكذا

   

اريد اعمل بحث في قاعد البيانات عن الارقام اذا حصل مثلا رررقم 03 يغير لون الرقم الى اللون الاحمر مثلا

جربت عدة طرق بس ما نفع

هذا الكود الي عندي

كود :

Private Function COUNT04() As Integer
       If conn.State <> ConnectionState.Open Then conn.Open()
       Using cmd4 As New SQLiteCommand("SELECT cqz FROM DBqsos WHERE cqz='04' ", conn)

           Dim queryResult = cmd4.ExecuteScalar()
           If IsDBNull(queryResult) Then
           Else
               rrr5 = Convert.ToInt32(cmd4.ExecuteScalar())
               Label4.BackColor = Color.Red
               Label4.Font = New Font(Label4.Font, FontStyle.Bold)
           End If
           Return rrr5
       End Using
   End Function





   Private Function COUNT05() As Integer

       Using cmd5 As New SQLiteCommand("SELECT COUNT(*) FROM DBqsos WHERE cqz='05'", conn)
           If conn.State <> ConnectionState.Open Then conn.Open()
           Dim queryResult = cmd5.ExecuteScalar()
           If IsDBNull(queryResult) Then
           Else
               rrr5 = Convert.ToInt32(cmd5.ExecuteScalar())
               Label5.BackColor = Color.Red
               Label5.Font = New Font(Label5.Font, FontStyle.Bold)
           End If
           Return rrr5
       End Using
   End Function

كود :

Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       COUNT01()
       COUNT02()
       COUNT03()
       COUNT04()
       COUNT05()
       COUNT06()
       COUNT07()
       COUNT08()
       COUNT09()
       COUNT10()
       COUNT11()
       COUNT12()
       COUNT13()
       COUNT14()
       COUNT15()
       COUNT16()
       COUNT17()
       COUNT18()
       COUNT19()
       COUNT20()
       COUNT21()
       COUNT22()
       COUNT23()
       COUNT24()
       COUNT25()
       COUNT26()
       COUNT27()
       COUNT28()
       COUNT29()
       COUNT30()
       COUNT31()
       COUNT32()
       COUNT33()
       COUNT34()
       COUNT35()
       COUNT36()
       COUNT37()
       COUNT38()
       COUNT39()
       COUNT40()

   End Sub

بس مع الاسف لا يعمل الكود

ما هيه الطريقه الصحيحه لكود بارك الله فيكم

وشكررا