Consulta Select não funciona

Bom dia

Tenho um formulário 'frmLetras' nele consta duas caixa de texto (tx1 e tx2) e uma caixa de Listagem (lstOpcao).

Coloquei no evento Ao Alterar das caixa de textos a consulta Select, veja:

tx1

Código:


Private Sub tx1_Change()
Me.lstOpcao.RowSource = "SELECT Campo0, Campo1, Campo2, Campo3, Campo4 FROM tblMusicas WHERE Campo1 Like '*" & Me.tx1.Text & "*'"
End Sub


tx2

Código:


Private Sub tx2_Change()
Me.lstOpcao.RowSource = "SELECT Campo0, Campo1, Campo2, Campo3, Campo4 FROM tblMusicas WHERE Campo3 Like '*" & Me.tx2.Text & "*'"
End Sub


Mais quando eu digito em qualquer uma das duas caixa de texto não aparece os dados na caixa de listagem. Já pesquisei na internet alterei, mais não funciona. No meu serviço tenho um sistema que funciona perfeitamente com esse código.

Alguém pode me ajudar?

O código aparentemente está correto. Poste o bd para analisar.