P.S.: пробовал "в лоб" - через On Error Goto , но почему-то обрабатывается только первая ошибка, а при повторном запросе вылетает с ошибкой вся программа, как буд-то никакого OnError нету

И что? Если таблица открыта другим пользователем на чтение, то и хрен бы с ним. Лишь бы не на запись...val писал(а):Проверяй директорию на .ldb file.
Dim cnTemp as ADODB.connection
Dim rsTemp as New ADODB.recordset
set cnTemp = cnMain
cnTemp.Open
set rsTemp.ActiveConnection = cnTemp
rsTemp.Source = "MyTable"
rsTemp.LockType = adLockPessimistic
rsTemp.CursorType = adOpenStatic
Retry:
On Error Goto Retry
rsTemp.Open
.... если open, то ура ...
On Error Goto Next
while rsTemp.Active = false and lCountIteration <> 10000
rsTemp.Open
lCountIteration = lCountIteration + 1
wend
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1