Dim I As Integer
    Dim strWhere As String
    If lstAge.ItemsSelected.Count = 0 Then
        MsgBox "???C? CIEC?? ??U?E ?? C??C??E"
    Else
        strWhere = " WHERE EID IN ("
        With lstAge
            For I = 0 To .ListCount - 1
                If .Selected(I) Then strWhere = strWhere & .Column(0, I) & ", "
            Next I
        End With
        
            strWhere = Left(strWhere, Len(strWhere) - 2) & ")"
            Application.CurrentDb.QueryDefs("qryEmp").SQL = "SELECT * FROM C???U?CE " & strWhere
           
       
    End If
    DoCmd.SetWarnings True = False
    DoCmd.OpenQuery "qapend"
    DoCmd.SetWarnings True = True
    Me.Requery
    DoCmd.GoToRecord , , acLast
End Sub