هذا هو كود الحفظ في الداتا باس وانا مش عارف فين الغلطة
ارجوكم حد يدلني فين الغلة عاجلا من فضلكم
Try
Dim enrg As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =Angels.mdb"
Dim Conn As New OleDb.OleDbConnection(ConStr)
enrg.Connection = Conn
enrg.CommandType = CommandType.Text
enrg.CommandText = "INSERT INTO custumers (SCode,SName,SAdresse,Tel,Mobile,E-Mail,Notes) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"
Conn.Open()
enrg.ExecuteNonQuery()
Conn.Close()
MsgBox("Data Saved Successfuly")
Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try