Puisque c'est du texte que tu passes en paramètre alors il te manque des apostrophes....Where MyTableField =" & "'" & MyTextField & "'"

Deplus, tu dois déclarer ta variable db comme étant database;
Dim db as database
{les autres déclarations ici}

set db = CurrentDB
{restant de ton code ici...}

db.close


Bonne chance