Access - Problema con un formulario

Me pasa algo muy raro con un Formulario. Tengo cuadro de Lista donde aparecen nombres. Un cuadro de texto justo encima donde yo introduzco letras para seleccionar los nombres del cuadro de lista de manera que se acorte la lista a medida que introduzco letras. El código que introduje en "Al Cambiar " en el cuadro de Texto es el siguiente:
Private Sub Texto0_Change()
If Texto0.Text = "" Then
Lista2.RowSource = "SELECT" & "[Autores.NombreAutor]" & "FROM Autores"
Else
Lista2.RowSource = "SELECT" & "[Autores.NombreAutor]" & " FROM Autores " & "WHERE [Autores.NombreAutor] LIKE '*" & Texto0.Text & "*' "
End If
Lista2.Requery
End Sub

Lo que me pasa es que fuciona bien en el momento que lo hago por primera vez, pero al cerrar el programa y volver a abrirlo ya no funciona y no se por que leches no funciona.
Agradecería mucho vuestra ayuda. Gracias

Ivan, por que no puebas en lugar de "Al cambiar", que sea "despues de actualizar"

Pepe