[VB6] Ricerca campo con apostrofo in errore

[OrcaAssassina]

Ho una query di questo genere

Set rsRecordSet14 = New ADODB.Recordset
rsRecordSet14.Open "SELECT [Sesso],[Tipo Scheda],[NomeScheda] From [EserciziStandard] where [Sesso] = '" & Combo2.Text & "' AND [Tipo Scheda] = '" & Combo3.Text & "' group by [Tipo Scheda],[Sesso],[NomeScheda] order by [Tipo Scheda]", CnConnessioni, adOpenStatic, adLockOptimistic


Finche ho nome senza apostrofo la ricerca è perfetta, mi è capito di mettere un valore di questo tipo:

"Riabilitazione dell'articolazione"

In inserimento non ci sono problemi, quando sono andato a fare la query di ricerca, mi va in errore perchè trova in mezzo un "apostrofo"

Per fare la prova se era quello ho sostituito con :

"Riabilitazione dell articolazione"

e tutto funziona

Come faccio per risolvere questo problema????

Ciao e grazieeeeeeeee

[ViolaX]

Set rsRecordSet14 = New ADODB.Recordset
rsRecordSet14.Open "SELECT [Sesso],[Tipo Scheda],[NomeScheda] From [EserciziStandard] where [Sesso] = '" & Combo2.Text & "' AND [Tipo Scheda] = '" & Combo3.Text & "' group by [Tipo Scheda],[Sesso],[NomeScheda] order by [Tipo Scheda]", CnConnessioni, adOpenStatic, adLockOptimistic


Ciao, basta sostituire, per esempio, così:

AND [Tipo Scheda] = '" & replace(Combo3.Text,"'","''") &