[عبدالرحمن بشري عمر]

   If con.State = ConnectionState.Closed Then

                con.Open()

            End If

            Dim cm As New OleDb.OleDbCommand

            cm.Connection = con

            cm.CommandType = CommandType.Text

            cm.CommandText = "INSERT INTO saless (cvb,b,c,d,f,h,i) values ( @cvb, @b, @c, @d, @f, @h, @i)"

      

            cm.Parameters.AddWithValue("@cvb", Labeld.Text.Trim)

            cm.Parameters.AddWithValue("@b", Labelt.Text.Trim)

            cm.Parameters.AddWithValue("@c", Label17.Text.Trim)

            cm.Parameters.AddWithValue("@d", TextBox3.Text.Trim)

            cm.Parameters.AddWithValue("@f", Label13.Text.Trim)

            cm.Parameters.AddWithValue("@h", Label10.Text.Trim)

            cm.Parameters.AddWithValue("@i", Label14.Text.Trim)

       

            cm.ExecuteNonQuery()

            con.Close()

            'Catch ex As Exception

            '    MessageBox.Show(ex.Message)

            'End Try

            Form20.TopMost = True

          

Form20.Show()

هذه هو الكود الذي استخدمة هو يعمل ولكن عند ما تكون القيمة كبيرة مثلا(1021584)يظهر هذه الخطا ومعه الرسالة المرفقة

---

ارجو المساعدة يا اخوان