Уважаемые форумчане, прошу помочь! Убил пол дня, но так и не решил вопрос.
У меня существует ListBox источником данных в котором является запрос. Для ListBox-а я сделал контекстное меню, которое предусматривает удаление выбранных строк (их может быть несколько).
Функция получения значений из ListBox-а:

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 прекрасно работает через макрос (Запускпрограммы), проверял, значения формирует.
Но в функции Spisok работать отказывается говоря что я неправильно ввожу аргумент для SelectFromList.
Что за мистика?

http://www.sql.ru/forum/1240361/funkciya-polucheniya-vybrannyh-znacheniy-iz-listbox-a