Dim queryInsert As String = "insert into ChargesTrans(VoucherID, ChargesID, ChargeName, OnValue, Calculate, ChargeType, Amount) " & _
                               " VALUES(@p1,@p2,@p3,@p4,@p5,@p6,@p7)"
cmd = New OleDb.OleDbCommand(queryInsert, clsFun.GetConnection())
cmd.Parameters.Add("@p1", OleDb.OleDbType.Integer)
cmd.Parameters.Add("@p2", OleDb.OleDbType.VarChar)
cmd.Parameters.Add("@p3", OleDb.OleDbType.VarChar)
cmd.Parameters.Add("@p4", OleDb.OleDbType.VarChar)
cmd.Parameters.Add("@p5", OleDb.OleDbType.VarChar)
cmd.Parameters.Add("@p6", OleDb.OleDbType.VarChar)
cmd.Parameters.Add("@p7", OleDb.OleDbType.VarChar)
For i As Integer = 0 To Dg2.Rows.Count - 1
    cmd.Parameters("@p1").Value = VchId
    cmd.Parameters("@p2").Value = Dg2.Rows(i).Cells(5).Value
    cmd.Parameters("@p3").Value = Dg2.Rows(i).Cells(0).Value
    cmd.Parameters("@p4").Value = Dg2.Rows(i).Cells(1).Value
    cmd.Parameters("@p5").Value = Dg2.Rows(i).Cells(2).Value
    cmd.Parameters("@p6").Value = Dg2.Rows(i).Cells(3).Value
    cmd.Parameters("@p7").Value = Dg2.Rows(i).Cells(4).Value
    If cmd.ExecuteNonQuery() > 0 Then
        ' MsgBox("Charges Inerted")
    End If
Next
clsFun.CloseConnection()