[RESOLVED] Can not save data MS Access ?

hi,

i have problem when save data at ms access database (save multiple data)
hire my code :

VB.NET Code:

Dim prodid As String
            Dim charga As Double = 0
            Dim iqty As Double = 0
            Dim idisc As Double = 0
 
            'simpan detail 
            For i As Integer = 0 To dg.Rows.Count - 1
                If dg.Item(0, i).ToString.Trim <> "" And _
                        dg.Item(1, i).ToString.Trim <> "" Then
 
                    prodid = dg.Item(0, i).ToString
                    charga = IFValNull(dg.Item(3, i).Value)
                    iqty = IFValNull(dg.Item(4, i).Value)
                    idisc = IFValNull(dg.Item(5, i).Value)
 
                    Dim scmd2 As New OleDb.OleDbCommand
 
                    scmd2.CommandText = "insert into inv_t_po_details(orderno,prod_id,orderprice,orderqty,discount)values" & _
                                    "(@orderno,@prod_id,@orderprice,@orderqty,@discount)"
 
                    scmd2.Parameters.AddWithValue("@orderno", nopo)
                    scmd2.Parameters.AddWithValue("@prod_id", prodid.ToString)
                    scmd2.Parameters.AddWithValue("@orderprice", 0)
                    scmd2.Parameters.AddWithValue("@orderqty", 0)
                    scmd2.Parameters.AddWithValue("@discount", 0)
 
                    scmd2.Connection = GetConnection()
                    scmd2.ExecuteNonQuery()
 
                End If
            Next

error :

Code:

---

The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data

---

Does the error message not speak for itself? One of the values that you're trying to save is too big for the column you're trying to save it to.

thank you :)