Apici e affini

["Enrico a Libero" <enricolr at libero dot it>]

Un saluto a tutti e Buon Anno.

Ho un piccolo problema con gli apici (Es. Oltrepo';Dall'Asta ecc..) quando 
lavoravo in VB avevo una procedurina che funzionava alla meraviglia ma che 
non riesco ad applicare in RB
VB
Public Function str_apici(strsql As String) As String
   Dim strbast As String
   Dim posiz As Long
   posiz = InStr(strsql, "'")
   If ((posiz <> 0) And (Not IsNull(posiz))) Then
      strbast = Left(strsql, posiz) & "'" & Right(strsql, Len(strsql) - 
posiz)
   Else
      strbast = strsql
   End If
   str_apici = strbast
End Function

e poi nelle vaire select

valore = str_apici(DataCombo2)
Adodc1.RecordSource = "select * from tabetipolog where DESCRIZIONE='" & 
valore & "'order by DESCRIZIONE"
Adodc1.Refresh

Avete idea come posso risolvere il problema?

Sempre un grazie a tutti

Enrico