[RESOLVED] Can not save data MS Access ?

[Tengkorak]

hi,

i have problem when save data at ms access database (save multiple data)
hire my 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 :

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