Naturalmente ... quello e' codice per VB.NET, non per VB6 ...

Con VB6 devi usare la funzione Replace ...

Replace(txtCognome.text, "'", "''")