methode find

Bonjour, je suis sous vb6, j'utilise une base access

je voudrais verifier si un champs est deja present dans la table avan de l'inserer, je n'arive pas a bien utiliser la methode find malgré mes recherches sur les forums;
C'est la premiere condition de l'iteration qui ne fonctionne pas!
Comment verifier si le prod existe dja avc find




Set Cn = New ADODB.Connection

Cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=H:\poly.mdb"
Set Rs = New ADODB.Recordset

Rs.ActiveConnection = Cn

Rs.Open "select * from FDS", Cn, adOpenDynamic, adLockOptimistic

do until Rs.EOF=true

if Rs.find ("LIBELLE")="' & frmfiche.text2.text & '" =true then
msgbox("Le prod existe deja")
else

Rs.AddNew
Rs.Fields("CODE_PRODUIT") = frmfiche.lblnumdoc.Caption
Rs.Fields("LIBELLE") = frmfiche.Text2.Text
Rs.Update
Rs.Close
end if


end sub

merci de vottre aide

dites moi toujours dans mon code pourquoi l'ecrasement (remplacement) n'est pas possible?qu'est ce qui cloche


Rs.Find "LIBELLE Like '" & frmfiche.Text2.Text & "'"

'Err.Number: Renvoie ou définit une valeur numérique indiquant une erreur
If Err.Number Or Rs.BOF Or Rs.EOF Then 'Contient les informations sur les erreurs d'execution
    Err.Clear ' Remet a zero Err.number
    Rs.AddNew
    Rs.Fields("CODE_PRODUIT") = frmfiche.lblnumdoc.Caption
    Rs.Fields("LIBELLE") = frmfiche.Text2.Text
    Rs.Fields("INDICE") = frmfiche.Text1.Text
   
  'Ajout de ton nouveau Champ
Else
    MsgBox ("La fiche " & frmfiche.Text2.Text & " existe deja")
    rep = MsgBox("Voulez-vous le remplacer", vbYesNoCancel + vbInformation)
    If rep = vbYes Then
    Rs.AddNew
    Rs.Fields("CODE_PRODUIT") = frmfiche.lblnumdoc.Caption
    Rs.Fields("LIBELLE") = frmfiche.Text2.Text
    Rs.Fields("INDICE") = frmfiche.Text1.Text
   
    End If
End If   

merci de m'aider