[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي حسين

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim SavInto As New OleDb.OleDbCommand()
       SavInto = New OleDb.OleDbCommand("update tbl_customers set [morta]='" & TextBox8.Text & "' where tel  = " & Val(TextBox7.Text) & "", con)
       If con.State = ConnectionState.Open Then con.Close()
       con.Open()
       SavInto.ExecuteNonQuery()
       SavInto.Dispose()
       con.Close()
       MsgBox("تم تسجيل البيانات بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "تم الحفظ")

   End Sub