Please help with code!!

[ad1044]

This is the code I have for a find form that searches through a datbase and the user can click click the name shown and the record is populated on the form.frmTable1.Data1.Recordset.FindFirst "[Appname] like '" & frmfind.DBCombo1.Text & "*'"
The only problem is if the record contains an apostrophe and I try to open it ' I get a runtime error....Any help with this one?

PLEASE HELP

[Gen-X]

form.frmTable1.Data1.Recordset.FindFirst "[Appname] like '" & replace(frmfind.DBCombo1.Text,"'","''") & "*'"

Try that... It should world.

It replaces all single quotes with 2 single quotes thus convincing the database you really mean ONE single quote.

[ad1044]

Thanks worked