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

السلام عليكم اخي الكريم
الطريقة التي تعتمد عليها في الحفظ هي الوضع المتصل
اما المشكلة لديك في الحفظ هو رقم السجل اذ يجب تحوبله من نص الى رقم
احذف الموديول وقم بوضع هذا الكود للفورم الرئيسي ثم اضف الحقول الناقصة الى جملة Insert حسب مسميات مربعات النصوص لديك 
ولانحتاج الى كتابة اسماء الحقول ثم القيم بل نكتب القيم مباشرة مع الانتباه الى ان الحقول الرقمية في الجدول يجب تحوبلها من نص الى رقم
واليك الكود

كود :

Imports System.Data.OleDb
Imports System.Data
Public Class Form1
   Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=pho.accdb;Persist Security Info=False;")
   Dim Da As OleDbDataAdapter
   Dim Dt As New DataTable
   Dim Cmd As New OleDbCommand()



   Private Sub save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click
       'الوضع المتصل
       Try
           ' انتبه الى الحقل رقم السجل يجب تحويله من نص الى رقم
           Dim Str As String = "insert into ooo values (" & CInt(TextBox1.Text) & ",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
           Cmd = New OleDbCommand(Str, con)
           con.Open()
           Cmd.ExecuteNonQuery()

       Catch ex As Exception
           MsgBox("لم يتم الحفظ ", MsgBoxStyle.Critical)
       Finally
           con.Close()
       End Try
   End Sub
End Class