Risolto il tutto grazie.

Dim ComuneSelezionato As String = cmbComuneResidenza.Text.Replace("'", "''")