How to sort out the parameter has no default value error?

See more:

VB

I want update the ms access table (stocks) using the data rows in unbound datagridview.
And I run the code I get the error: parameter @Quantity has no default value.

Can somebody help me to sort out this error.

Iam using the following code:

Dim strConnectionString As String = "provider=microsoft.ACE.OLEDB.12.0;DATA SOURCE=C:\BDSM\StoresDB.accdb;"
        Using accConnection As New OleDb.OleDbConnection(strConnectionString)
           Using cmd As New OleDb.OleDbCommand("UPDATE [Stocks] SET Quantity= Quantity - @QuantitySold,TotalCost=TotalCost - @SalesCost where [StockCode]=@Param1 ", accConnection)
              cmd.Parameters.AddWithValue("@QuantitySold", row.Cells("Quantity").Value)
              cmd.Parameters.AddWithValue("@SalesCost", row.Cells("TotalCost").Value)
              cmd.Parameters.AddWithValue("@Param1", row.Cells("StockCode").Value)
              accConnection.Open()

              Dim intUpdate As Integer = cmd.ExecuteNonQuery()
              accConnection.Close()
           End Using
        End Using
     Next

What I have tried:

I have tried to check the datatypes in the database.