[فراس محي]

اخوان ممكن مساعده مستعجله عملت نظام وشغال تمام بس المشكله عندي نقص بكود الحفظ 
اريد من احفظ قيد اذا كان بيانات حقل التكيست 5 موجود مسبقا مايحفظ يعرض رساله وذا غير موجود يحفظ القيد وهذا كود الخزن 

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       dataconnection()
       TextBox15.Text = DateTime.Now
       TextBox14.Text = My.Computer.Name.ToString()
       cmd.Connection = cnn
       cmd.CommandText = "INSERT INTO [info] " & _
                  "([name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti],[datauser],[dateuser]) VALUES" & _
            "('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox5.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox6.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "')"
       cmd.ExecuteNonQuery()
       cnn.Close()
       clear1()
   End Sub

جربت كود بحث بس المشكله ما اعرف اذا رجعت قيمه da  اشلون اتعامل وياهاوهذا التعديل الي سويته على الكود بس ما عاعرف القيمه الي ترجع اشلون اتعامل ويايها 

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       dataconnection()
       TextBox15.Text = DateTime.Now
       TextBox14.Text = My.Computer.Name.ToString()
       cmd.Connection = cnn
       Dim da As New OleDb.OleDbDataAdapter("SELECT * From info where ngan like '%" & TextBox5.Text & "%'", cnn)
       اذا رجعت da قيد اشلون راح اتعامل وياه هنا مشكلتي
       cmd.CommandText = "INSERT INTO [info] " & _
                  "([name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti],[datauser],[dateuser]) VALUES" & _
            "('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox5.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox6.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "')"
       cmd.ExecuteNonQuery()
       cnn.Close()
       clear1()
   End Sub