[abdala]

قد حولت فى تعديل الكود بهذا الشكل

Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click

'أولا نقوم بافراغ مربعات النصوص
If btn_add.Text = "أضافة" Then
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""

'نغير خاصية الزر إلى حفظ ليتم حفظ االموقع
btn_add.Text = "حفظ"
ElseIf btn_add.Text = "حفظ" Then
'نعود ونحول الخاصية إلى أضافة ليسنى الأضافة مرة أخرى
btn_add.Text = "أضافة"
'شرط التأكد من أن المربعات مليئة
If TextBox3.Text <> "" AndAlso TextBox4.Text <> "" AndAlso TextBox5.Text <> "" AndAlso TextBox10.Text <> "" AndAlso TextBox11.Text <> "" AndAlso ComboBox2.Text <> "" Then
btn_add.Text = "أضافة"
'هذه الكتلة هي للأضافة
'.........................................................................
Try
'الأتصال
cmd.Connection = conn
'عبارة الأضافة
cmd.CommandText = "insert into data (part,name,des,link,user_name,password) values('" & ComboBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & TextBox10.Text & "','" & TextBox11.Text & "')"
'أذا كان الأتصال مفتوح نقوم بأغلاقه
If conn.State = ConnectionState.Open Then
conn.Close()
End If
'نفتح الأتصال
conn.Open()
'تنفيذ الأضافة
cmd.ExecuteNonQuery()
'اغلاق الأتصال
conn.Close()
'حدثان ملئ الليست بوكس ومربعات النصوص
filllistbox_Add()
filltext_Add()
ListBox3.Visible = True
'أصطياد الخطأ أن وجد وأظهاره في رسالة
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
'..............................................................................
Else
'أذا لم يتم ملئ مربعات النص تظهر هذه الرسالة
MessageBox.Show("لم تدخل كل المعلومات")

btn_add.Text = "حفظ"
End If
End If


دة كود الاضافة فى خطا والقاعدة لا تقبل الاضافة
End Sub