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

Tack Jonny!

Fungerade. Dubbelkollade med min lärare också och han hade det här att säga till mig:

Felet är att du blandar strängar och en variabel.