как правильно объявить?
"xxx.mda" лежит в системном каталоге

Private Declare Function xxx Lib "xxx.mda" _
(par1 As String, _
par2 As String, _
par3 As String, _
par4 As String, _
par5 As String, _
par6 As String, _
Optional par7 As Integer, _
Optional par8 As String, _
Optional par9 As String, _
Optional par10 As Boolean, _
Optional par11 As String, _
Optional par12 As String) As String


вызов типа такой работал

Call xxx ("Server", sUserName, sEmail, sEmail, sSubject, sText)

Владимир СанычА почему не годится стандартный способ? Подключаем этот файл в ссылках и обращаемся к его функциям как к локальным.

Хочу подключать и отключать на лету

Через коллекцию объектов базы данных никак нельзя доступиться?
Типа так.......................

Dim obj As Database
Set obj = DBEngine.OpenDatabase("c:\aaa\Lib\xxx.mda")
obj.xxx "as", s1, s2l, s3, s4, sText

С ув. к участникам форума, Руслан.

В мде-шке рефернес не удаляется
Добавить не пробывал.......

С ув. к участникам форума, Руслан.

Alexey ShЕсли не жалко запустить второй экземпляр аксесса, то можно так


так я уже вчера сделал , но жутко уж долго все.
Dim objххх As Object

Set objххх = CreateObject("Access.Application")

With objxxx
.Visible = False
.OpenCurrentDatabase "c:\Путь\Lib\xxx.mda"
.Run "ххх_Процедура", Пар1, Пар2, .........
End With

Alexey ShНу application дополнительный можно один раз создавать и не закрывать после каждого run

В памяти будет постоянно храниться объект ..........ххх