nessun problema

una volta cliccato sulla list box e richiamando il valore della listbox ti accorgerai ke per default è quello selezionato

quindi

nel pulsante basterà scrivere (clicca su clic evento, poi ricordati di andare su riferimneti ed aggiungere DAO)

codice:
Set dB = CurrentDb
SQL = "select * from Tabella where Numero like '" & Me.Lista & "'"
Set tabella = CurrentDb.OpenRecordset(SQL)

  if not Tabella.oef then
    tabella.Delete
 end if

Me.Lista.Requery 'riaggiorna la lista se la query l'hai impostata nelle proprietà altrimenti devi fare una impostazione di datasource

se hai l'explicit in alto al modulo puoi o commentarla (n si fa mai oppure devi dichiarare le var ke hai usato nel pulsante, Dim Db as database dim Tabella as recordset)