[elgokr]

يكتفى ان تجعل الكود بهذا الشكل

كود :

       '\\\\\\\\\\\\\\\\ كود فتح الاتصال /////////////'
       If con.State <> ConnectionState.Open Then con.Open()
       '\\\\\\\\\\\\\\\\ كود فتح الاتصال /////////////'

       'بداية كود الاستعلام
       Dim cmd41 As New SQLiteCommand(String.Format("SELECT * FROM DB{0} WHERE CALLop = @CALLop and bands = @bands and modes = @modes", Stadd), con)
       cmd41.Parameters.AddWithValue("CALLop", Trim(a3))
       cmd41.Parameters.AddWithValue("bands", Trim(bandsxxs))
       cmd41.Parameters.AddWithValue("modes", Trim(modesCXXX))
       Dim rowCount41 As Integer = Convert.ToInt32(cmd41.ExecuteScalar())
       If rowCount41 <> 0 Then

       Else
           c1 = "M/B"
       End If
       'نهاية كود الاستعلام


       'ضع اكواد خاصة الاستعلام / البحث هنا كما تشاء


       '\\\\\\\\\\\\\\\\ كود اغلاق الاتصال /////////////'
       con.Close()
       '\\\\\\\\\\\\\\\\ كود اغلاق الاتصال /////////////'

طبق كما هو تم شرحه فى الكود

تحياتى لك

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