Não aparecem todos os registos.

Olá

tenho o seguinte código num form :

Código:

Option Compare Database

Private Sub btnSair_Click()
DoCmd.Close
End Sub

Private Sub Form_Load()
Me.txtpesquisa.SetFocus
End Sub

Private Sub txtpesquisa_Change()
Select Case Me!mdlOpcao
    Case 1
        strFiltro = "TipoAtividades LIKE '*" & Me.txtpesquisa.Text & "*' "
    Case Is = 2
        strFiltro = "Produto LIKE '*" & Me.txtpesquisa.Text & "*' "
    End Select
        Me.[frmsubContagemAtividades].Form.RecordSource = "SELECT * FROM ConsAtividades WHERE " & strFiltro
End Sub

O problema é quando abro o form, não aparecem todos os registos, mas se filtrar pelo nome aparecem !!!

Obrigado

Um bem hajam !

tenta assim

Código:

Private Sub txtpesquisa_Change()
Select Case Me!mdlOpcao
    Case 1
        strFiltro = "TipoAtividades LIKE '*" & Me.txtpesquisa.Text & "*' "
Me.[frmsubContagemAtividades].Form.RecordSource = "SELECT * FROM ConsAtividades WHERE " & strFiltro
    Case Is = 2
        strFiltro = "Produto LIKE '*" & Me.txtpesquisa.Text & "*' "
Me.[frmsubContagemAtividades].Form.RecordSource = "SELECT * FROM ConsAtividades WHERE " & strFiltro
    End Select
       
End Sub