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

السلام عليكم اخي الكريم 
نعم كما اشار اخي عاصم مشكورا يجب ان تكون الباراميترات داخل جملة الفور
شي اخر انتبهت اليه وهو عملية الفتح والاغلاق بجب ان لاتكون داخل جملة الفور
لنتصور ان لدينا مثلا 100 سجل وهنا سيتم الفتح والاغلاق 100 مرة وهذا خطأ 
اليك الكود بعد التعديل

كود :

Dim Cmd As New OleDbCommand()
   Private Sub Btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Save.Click
       'هنا ستقوم بتعريف هذه المتغيرات
       Dim Id As Integer
       Dim item As String
       Dim total As String
       Dim Cmd As New OleDbCommand("insert into Table (Id,Item,Total)values(@Id,@Item,@Total)", con)
       ' تحتاج الى هذه الفور زيادة على الحفظ العادي
       If con.State = ConnectionState.Open Then con.Close()
       con.Open()
       For i As Integer = 0 To Datagrid1.Rows.Count - 1
           Id = Datagrid1.Rows(i).Cells(0).Value
           item = Datagrid1.Rows(i).Cells(1).Value
           total = Datagrid1.Rows(i).Cells(2).Value

           Cmd.Parameters.Add(New OleDbParameter("@Id", OleDbType.Integer)).Value = Id
           Cmd.Parameters.Add(New OleDbParameter("@Item", OleDbType.VarWChar)).Value = item
           Cmd.Parameters.Add(New OleDbParameter("@Total", OleDbType.VarWChar)).Value = total

           Cmd.ExecuteNonQuery()
       Next
       con.Close()
       MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)

   End Sub