Perchè non hai messo il nome del campo?

strSQL = "INSERT INTO Anagrafica (CodFiscale,Cognome) VALUES (' " & iCod & " ',' " & iCognome & "')"

Questa è la struttura Insert into NomeTabella (Nome dei campi)Values(valori che vuoi inserire)