Se il campo ID_Anagrafica e Key_contact sono numerici allora va bene, se invece sono dei campi stringa allora ci vuole il singolo apice.
codice:
strQuery = "Select * from tRiferimenti where ID_Anagrafica= " & "'" & IDAnagrafica & "'" & " And Key_Contact <> " & "'0'"
così come l'ho scritta IDAnagrafica è una variabile che viene valorizzata a RunTime