[حسين ادريس]

دا كود الحفظ اللى عندى يعمل تمام معى
بس مش عارف فى الرنامج دا مش عايز يحفظ البيات ليه
يتوقف عند السطر       SavInto.ExecuteNonQuery()
وبتخرج رساله 
Data type mismatch in criteria expression
ودا كود الحفظ

كود :

  Dim SavInto As New OleDb.OleDbCommand
       SavInto.Connection = con
       SavInto.CommandType = CommandType.Text
       SavInto.CommandText = "update tbl_customers set [morta]='" & TextBox8.Text & "' where tel  = " & Val(TextBox7.Text) & ""
       con.Open()
       SavInto.ExecuteNonQuery()
       SavInto.Dispose()
       con.Close()
       MsgBox("تم تسجيل البيانات بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "تم الحفظ")

   End Sub