[Resolvido]Carregar as informações

Boa noite.
Realizei alguns teste e não consegui carregar quando eu clico em cancelar.
Neste caso ele limpa todo o conteúdo do formulário.  O que tentei fazer é com que ao clicar ele limpa todos os campos mas a listbox permanece preenchida

Boa noite.
Consegui que funcionasse do jeito necessário utilizando o código abaixo.
Ao cicar em novo e decidir não continuar o código ele limpa algum camó com alguma informação e a caixa de listagem não será limpa

Código:


Private Sub Btn_Cancelar_Click()
  On Error GoTo trata_erro
Dim X As Integer

    If iCmd = 0 Then Exit Sub

    If Me.Dirty Then
        X = MsgBox("Deseja realmente cancelar?", vbQuestion + vbYesNo, NOMESYS)
        '-- Alexandre Fim - 13/12/2021
        '-- Executa função genérica para limpar controles do formulário ativo
        'Limpar_CadastroLeitor
        'Call fnClearControl(Me)
        'Form_Load
        'DoCmd.RunCommand acCmdRecordsGoToNew
    End If
   
    If X = 0 Or X = 6 Then
        Me.Undo
        iCmd = Me.Btn_Cancelar.Tag
        'Call fnClearControl(Me)
        Call fnEnableButton(Me, iCmd)
        Call fnBlockControl(Me)
    End If
   
    '-- Executa o Form Load e limpa os campos usando NewRecord
    Form_Load
   
    iCmd = 0

    Exit Sub

trata_erro:
    Call fnClearControl(Me)
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
  CarregaLista


End Sub