Database - Converte Memo DBF in Memo Access

Visual # utilizzando archivi dbf con campi memo si verifica che importandoli, i campi memo sono pieni di simboli strani.
per togliere tali simboli utilizzare il seguente codice
Do While Not datprimaryrs.recordset.eof
datprimaryrs.recordset.edit
If Not Isnull(datprimaryrs.recordset.fields("mnotazione")) Then
testo = datprimaryrs.recordset.fields("mnotazione")
For i = 1 To Len(testo) - 1
If Mid(testo, i, 1) = chr(236) Or Mid(testo, i, 1) > chr(141) Or Mid(testo, i, 1) <= chr(31) Then
If Mid(testo, i, 1) = chr(236) Then
testo = Mid(testo, 1, i - 1) + " " + Mid(testo, i + 1, Len(testo))
Else
testo = Mid(testo, 1, i - 1) & Mid(testo, i + 1, Len(testo))
End If
'beep

'i = i + 1

End If
Next i
datprimaryrs.recordset.fields("mnotazione") = testo
datprimaryrs.updaterecord
datprimaryrs.recordset.bookmark = datprimaryrs.recordset.lastmodified
End If
datprimaryrs.recordset.movenext
If datprimaryrs.recordset.eof Then
Exit Do
End If
txtfields(0).refresh
txtfields(1).refresh
Loop