da quello che vedo manca un set nell'assegnazione della connessione al command:

codice:
Set objCmd.ActiveConnection = objCon
edit:
se usi adodb.command usa anche i parameters per passare i parametri, è più comodo e pulito