[jonny]

Data type mismatch in criteria expression beror på att du använder fnuttar (').

Du säger alltså "Ta bort allt från tabellet Prod där PID=strängen 867" när du egentligen menar talet 867 - gissar jag.

Prova alltså:
objConn.Execute "DELETE FROM Prod WHERE PID = " & PID

/Jonny