[elgokr]

لا ابداً المشكلة فقط فى هذا السطر

كود :

       If Not IsDBNull(cmd.ExecuteScalar()) Then

على اى حال انا قمت بتعديل كود الـ Function

فقط احذف ما لديك واستبدله بالتالى

كود :

   Private Function CountNumber(Num As Integer, CLo As Color)
       If conn.State <> ConnectionState.Open Then conn.Open()
       Dim cmd As New SQLiteCommand("SELECT cqz FROM DBqsos WHERE cqz=@cqz ", conn)
       cmd.Parameters.AddWithValue("@cqz", Num.ToString("00"))
       Dim sqLReader As SQLiteDataReader = cmd.ExecuteReader()
       If sqLReader.Read() Then
           Controls(String.Format("Label{0}", Num)).BackColor = CLo
           Controls(String.Format("Label{0}", Num)).Font = New Font(Controls(String.Format("Label{0}", Num)).Font, FontStyle.Bold)
       End If
       Return False
   End Function

وسيعمل معك ان شاء الله هذه المرة بدون مشكلة

تحياتى لك

وتمنياتى لك التوفيق