[Resolvido]É possível duas funcionalidades em um mesmo botão?

Private Sub SeuBotao_Click()

Call fncCarregalista("ID > 0")
    DoEvents
DoCmd.Close

End Sub

Private Sub SeuBotao_Click()
Dim filtro
Dim ordem
Dim strsql
filtro = "ID > 0"
    strsql = "SELECT ID, Data, Referencia, Titulo, Informa"
    strsql = strsql & " FROM TBLGeral WHERE " & filtro
    strsql = strsql & " ORDER BY Data;"
    Me!Lista.RowSource = strsql
    filtroLista = filtro
    Me.TxtTotalRegistos = Lista.ListCount & " de " & DCount("*", "TBLGeral")
    DoEvents
'DoCmd.Close
End Sub

Private Sub Comando27_Click()
'----------------------------------------
'Carrega a listbox com todos os registros
'-----------------------------------------
Call fncCarregalista("ID > 0")
'-----------------------------------------
'Limpa as caixas de texto de filtragens
'------------------------------------------
    For j = 1 To 4
        Me("tx" & j) = Null
    Next
    Me!tx1.SetFocus
        DoEvents
    DoCmd.Close
End Sub