[Resolvido]Limpar caixa de listagem

Olá pessoal.

Tenho o seguinte código que carrega uma caixa de listagem no evento após atualizar de um quadro de opções, não estou conseguindo limpar a caixa de listagem quando escolho outra opção, ou seja, a caixa de listagem continua com os valores antigos. Coloquei o seguinte código para limpar a caixa más não funciona.

Me.Lista1 = Null
Me.Lista1 = ""

Código completo abaixo

Código:

Private Sub QuadroItens_AfterUpdate()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim SQL As String
    Dim strEmpresa As String
    Dim subContaLong as long
    
    On Error Resume Next
    
   Me.ListaNivel1 = Null
   Me.ListaNivel1 = ""
   Me.ListaNivel1.Requery
    Form_frmImplantacao.frmSubImplantacao.Requery

    strEmpresa = loginEmpresa.CodigoEmpresa    'grava o código da empresa logada na variavel
    subContaLong = Me.QuadroItens

    SQL = "SELECT * FROM tblPlano2 WHERE Empresa = '" & strEmpresa & "' AND ContaFilho = " & subContaLong & ""

    Set db = CurrentDb()
    Set rs = db.OpenRecordset(SQL)
    rs.MoveFirst
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        Do Until rs.EOF
            Me.ListaNivel1.AddItem rs.Fields(0).Value & ";" & rs.Fields(3).Value & ";" & rs.Fields(2).Value & ";"
            rs.MoveNext
        Loop
    End If
    rs.Close
    db.Close

    Me.ListaNivel1.Requery
    Me.ListaNivel1.SetFocus
    Me.ListaNivel2.Requery
    Me.ListaNivel3.Requery


End Sub

Desde já agradeço.

Avelino.

Era isso que precisava.

Mais uma vez obrigado pela sua ajuda.