Public Function SelectFromList(ByRef lst As ListBox)
    Const COMMA = ", "
    Dim s As String, varItem As Variant
    
    For Each varItem In lst.ItemsSelected
                  s = s & COMMA & "'" & lst.ItemData(varItem) & "'"
        
    Next varItem

        s = Mid$(s, 3)

        SelectFromList = s

End Function

Public Function Spisok()
Dim SQL As String

SQL = "DELETE * FROM tblSecond WHERE tblSecond.Счетчик IN (" & SelectFromList(<МойСписок>) & ");"
CurrentProject.Connection.Execute SQL, Options:=adCmdText + adExecuteNoRecords
DoCmd.Requery
End Function

SelectFromList(ByRef lst As ListBox)

SelectFromList(Forms!<Имя формы>.<Имя списка>)

SelectFromList(Me.<Имя списка>)

SelectFromList(Forms!frmTwo.Listbox1)

Dim ctlCurrentControl As control

Set ctlCurrentControl = Screen.ActiveControl
  
If ctlCurrentControl.Name = "Listbox1" Then
strNew = Listbox.caption

SelectFromList(Forms!frmTwo.strNew)