Please Help: Error: Missing Semicolon (;) At End Of SQL Statement.

Hey





I am trying to retieve a value from teh database and add one to it, then update the database with thenew value before redirecting to a page.





I am recieving this error and don't know why, i have the following coed below.





Dim objReaderQ as OleDBDataReader





Dim strSQLRead As String


Dim objCmd As New OleDbCommand





strSQLRead ="Select Quantity from tblCart Where (Productid=" & intProdidHold & ") AND (Cartid='" & strCartid & "')"





objCmd = new OleDbCommand(strSQLRead, objConn)


objReaderQ = objCmd.ExecuteReader()





if objReaderQ.Read()


'update quantity by 1





Dim i as integer


i = objReaderQ("quantity")


i = i + 1





objReaderQ.Close()





Dim strSQLQuantity as String = "INSERT INTO tblCart (Quantity) VALUES (@quantity) WHERE (productid=" & intProdidHold & ") AND (Cartid='" & strCartid & "');"





Dim objCmdQuantity As New OleDbCommand(strSQLQuantity, objConn)





objCmdQuantity.Connection = objConn





objCmdQuantity.Parameters.Add("@quantity", OleDbType.VarChar, 255)


objCmdQuantity.Parameters("@quantity").Value = i





objCmdQuantity.ExecuteNonQuery() ' <--- Error Is Occuring On This Line





Response.Redirect("ViewBasket.aspx")





end if








I really can't see what is wrong as i have placed the semi colon it wanted at the end of the string.





Thanks you for your time





Chris