[VB6] Sostituzione degli apostrofi per query di INSERT INTO

[generationweb.i]

Ciao ragazzi vi posto il codice per il semplice inserimento di dati in un DB

ApriConnessione "INSERT INTO clienti (nome,cognome) VALUES ('" & nome & "','" & cognome & "')"
ChiudiConnessione
MsgBox ("Tutto ok")

Funziona tutto ma nn riesco a capire dove mettere gli apici per fare il REPLACES sul campo cognome (se ad esempio c'è un cognome con l'apostrofo)
Se qualcuno potrebbe darmi direttamente il codice con l'aggiunta del replaces a queste righe di codice su elencate, mi risolve un grandissimo problema...
Grazie in anticipo!!!

[tony83]

Originariamente inviato da generationweb.i
Ciao ragazzi vi posto il codice per il semplice inserimento di dati in un DB

ApriConnessione "INSERT INTO clienti (nome,cognome) VALUES ('" & nome & "','" & cognome & "')"
ChiudiConnessione
MsgBox ("Tutto ok")

Funziona tutto ma nn riesco a capire dove mettere gli apici per fare il REPLACES sul campo cognome (se ad esempio c'è un cognome con l'apostrofo)
Se qualcuno potrebbe darmi direttamente il codice con l'aggiunta del replaces a queste righe di codice su elencate, mi risolve un grandissimo problema...
Grazie in anticipo!!!

ApriConnessione "INSERT INTO clienti (nome,cognome) VALUES ('" & replace(nome,"'","''") & "','" & replace(cognome,"'","''") & "')"

[generationweb.i]

Grazie 1000 funge!!!