ник: Прохожий
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strActiveConnection, False
appAccess.DoCmd.CopyObject strReplicaName, , acTable, "tblWares"
appAccess.DoCmd.CopyObject strReplicaName, , acTable, "tblBarCode"
appAccess.DoCmd.CopyObject strReplicaName, , acTable, "tblAvailability"
Set appAccess = Nothing
Под Access все работает, глюк возникает при запуске под Runtime