[0theghost0]

على العموم اشكر الشخص الى ساعدني والى حاول يساعدني

واشكر الاخ الغالي الى قام بإرسال لي الكود الصحيح على ايميلي الخاص

وهذا ماقام بإرساله لي :

والنتيجة سليمة والحمدالله

كود :

Try

           Dim n As String = ComboBox1.Text
           Dim Savecommand As New OleDb.OleDbCommand
           'الاتصال بمزود البيانات
           Dim Connectionstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;"
           Dim newconnection As New OleDbConnection(Connectionstring)
           Savecommand.Connection = newconnection
           Savecommand.CommandType = CommandType.Text
           'التعديل هنا ويكون ما تكتبه فى التكست بوكس
           Savecommand.CommandText = "UPDATE Customer SET  Cus_Name = '" & Trim(TextBox1.Text) & "' , Cus_Address = '" & Trim(TextBox3.Text) _
           & "' , Cus_Region = '" & Trim(TextBox4.Text) & "' , Cus_Telephone_Number = '" & Trim(TextBox5.Text) & "' WHERE Cus_Private_Number  like '" & n & "'"
           'فتح الاتصال وعمل التعديل الذى قمت به وبعد ذلك اغلاق الاتصال وتظهر رساله للمستخدم بنجاح التعديل الذى قام به
           newconnection.Open()
           Savecommand.ExecuteNonQuery()
           newconnection.Close()

           MsgBox("تم التعديل", 64, "نجاح")
           '   Me.Close()
           'اظهار الفورم الرئيسى بعد نجاح التعديل واغلاق فورم التعديل
           ' main.Show()
           'اصطياد الاخطاء
       Catch ex As Exception
           'عرض الخطا فى رساله
           MsgBox(ex.Message, 16, "خطأ")

       End Try
       Form2_Load(e, e)

قمت بوضعه لكم ليستفيد كل من يريده