Господа!
Ниже описанный код работает. но технологически это
неправильно.
Сам думаю что надо использовать For Each...Next в одном из циклов.

Кто силен в циклах, прошу подкорректировать.
Благодарю за участие!

Dim dbs As DAO.DataBase
Dim rs As DAO.Recordset
Dim rst As DAO.Recordset

Set dbs =CurrentDB

Set rs = dbs.OpenRecordset("SELECT InsDelete.TableUd FROM InsDelete GROUP BY InsDelete.TableUd HAVING ((Not (InsDelete.TableUd) Is Null))")

Do While Not rs.EOF
Set rst = dbs.OpenRecordset("SELECT [40Delete_" & rs.Fields(0) & "].FilialKod" & KodFilial & " FROM 40Delete_" & rs.Fields(0) & " GROUP BY [40Delete_" & rs.Fields(0) & "].FilialKod" & KodFilial & " HAVING ((Not ([40Delete_" & rs.Fields(0) & "].FilialKod" & KodFilial & ") Is Null))")

Do While Not rst.EOF
dbs.Execute ("DELETE " & rs.Fields(0) & ".FilialKod" & KodFilial & " FROM " & rs.Fields(0) & " WHERE (((" & rs.Fields(0) & ".FilialKod" & KodFilial & ")=" & rst.Fields(0) & "))"), dbFailOnError
rst.MoveNext
Loop

rst.Close
rs.MoveNext
Loop
rs.Close

Set rs = nothing
Set rst = nothing