Non mi riesce proprio a fare funzionare una casella combinata che su aggiornamento mi filtri dei record!

Allora, sulla proprietà della casella combinata "dopo aggiornamento" inserisco il seguente codice:

Private Sub CasellaCombinata12_AfterUpdate()
Me.Filter = "nomecampo= " & "'" & Me.CasellaCombinata12 & "'"
Me.FilterOn = True

End Sub

Perchè non mi funziona?
Quando seleziono la casella combinata tutti i record spariscono e ne rimane solo uno vuoto...