Chamar função

Bom dia.
Estou com dificuldades em finalizar o formulário pesquisa.
Quando abro o formulário não carrega a caixa de listagem e o botão procurar também não funciona.
Se clicar no botão limpar, já carrega a caixa de listagem e o botão procurar já funciona.



**************************************************************************
' AO ABRIR'
Private Sub Form_Open(Cancel As Integer)
Call filtraListBox
End Sub

'LIMPAR'
Private Sub Limpar_Click()
( não coloquei o codigo mas ao fazer limpar, limpa todas as combo´s do formulário )
Me.ListaSpmPesquisa.RowSource = " SELECT boletim, oc, projecto, acessorio, tipo, modelo, datarecepcao, fornecedor, lote,local, tamanholote, tamanhoamostra, obs, decisao FROM spm ORDER BY boletim DESC;"
End Sub

'PROCURAR'
Private Sub Procurar_Click()
   Call filtraListBox
End Sub

'FILTRAR'
Sub filtraListBox()
   
   Dim str, filtro As String
   
   ' combo boletim - texto
   
   If Not IsNull(Me.Boletim) = True Then
       If str <> "" Then str = str & " and "
       
       str = str & "boletim = '" & Me.Boletim.Column(0) & "'"
   End If
   
  ( Tenho varias combo´s só coloquei aqui a 1ª e ultima )
   
   'combo Decisão - texto
   
   If Not IsNull(Me.decisao) = True Then
       If str <> "" Then str = str & " and "
       
       str = str & "decisao = '" & Me.decisao.Column(0) & "'"
   End If
   
   filtro = "SELECT boletim, oc, projecto, acessorio, tipo, modelo, datarecepcao, fornecedor, lote,local, tamanholote, tamanhoamostra, obs, decisao FROM spm"
   
   If str <> "" Then filtro = filtro & " WHERE " & str

   Me.ListaSpmPesquisa.RowSource = filtro
   Me.ListaSpmPesquisa.ColumnCount = 14
   
End Sub

**************************************************************************

' AO ABRIR'
Private Sub Form_Open(Cancel As Integer)
call Limpar_Click()
Call filtraListBox
End Sub