Si le texte recherch=E9 comporte un seul apostrophe
il suffit de doubler celui ci.
Mais si le texte contient plusieurs apostrophes comme ci-
dessous, le filtre ne fonction pas et j'obtient un message=20
d'erreur.
'-----------
'D=E9claration
'-----------
Dim DBTest As ADODB.Connection
Dim RSTest As ADODB.Recordset
'---------------------
' Ouverture de la base
'---------------------
vConnectionString =3D "Provider=3DMicrosoft.jet.oleDB.4.0" _
& ";Data Source=3D" & vCheminBase _
& ";Persist Security Info=3DFalse"
Set DBTest =3D New ADODB.Connection
DBTest.Open vConnectionString
'---------------------------------
'Ouverture de la table avec filtre
'---------------------------------
Set RSTest =3D New ADODB.Recordset
RSTest.CursorType =3D adOpenKeyset
RSTest.LockType =3D adLockOptimistic
RSTest.Filter =3D "L'eau et L'air"
RSTest.Open "SELECT * FROM Prix", DBTest, , , adCmdText
