Проблемы с SQL-запросом к БД MSAccess

[Sasha SpbSU]

В VB6 почему-то не выполняется SQL-запрос со связями:

SELECT r.GroupID, Groups.GroupName, r.GroupID
FROM r INNER JOIN Groups ON r.GroupID = Groups.GroupID
WHERE r.GroupID=26;

VB-код

With rstDomains
.Source = "SELECT DISTINCT r.DomainID, Domains.DomainName " _
& "FROM Domains INNER JOIN r ON Domains.DomainID = r.DomainID"
.Open , cnTask, adOpenStatic, adLockOptimistic
End With

If rstDomains.RecordCount = 0 Then Exit Sub

rstDomains.MoveFirst
While Not rstDomains.EOF
With rstGroups
.Source = "SELECT r.GroupID, Groups.GroupName, r.GroupID " _
& "FROM r INNER JOIN Groups ON r.GroupID = Groups.GroupID " _
& "WHERE r.GroupID=26" ' & rstDomains!DomainID
.Open , cnTask, adOpenStatic, adLockOptimistic '!!!!!!!!!!Здесь происходит ошибка
End With
rstDomains.MoveNext
Wend

Выдает следующую ошибку:
Ошибка при выполнении программы '3705'
Operation is not allowed when the object is open

Если сделать "SELECT ... FROM r, Groups", то все в порядке.

В чем проблема никак понять не могу.

[boevik]

Открытие rstGroups у тебя происходит в цикле.
Т.е. на первом шаге всё в порядке (rstGroups откроется).
А вот на втором шаге должна быть ошибка, потому что recordset уже открыт.

[Sasha SpbSU]

Спасибо!