Теперь не выполняется Execute пишет типа что не может выполнить. типа закрыто или не может быть выполнено в данном контексте

Dim db As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL, s As String
Dim r As New ADODB.Recordset
Dim cmd As New ADODB.Command
db.Open ("driver={SQL Server};server=SQLSRV;Database=Sale;user=sa;pwd=")
s = "select idflat from tFlat where idObg is not null"
r.Open s, db, adUseClient, adLockOptimistic, adCmdText
kol = Me.Ïîëå3
While not r.EOF
cmd.CommandText = "UPDATE dbo_tFlat SET dbo_tFlat.idObj =1 where idFlat=" & kol
cmd.Execute
kol = kol + 1
r.movenext
Wend
db.Close
Вот при этом пишет что не может выполнить

Извините вместо старого топика запостила в новый

to funddd
тоже самое

даже так попробовала
Dim con As New ADODB.Connection
Dim kol, l As Integer
Dim db As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL, s As String
Dim r As New ADODB.Recordset
Dim cmd As New ADODB.Command
db.Open ("driver={SQL Server};server=SQLSRV;Database=Sale;user=sa;pwd=")
s = "select idflat from tFlat where idObj is not null"
r.Open s, db, adOpenDynamic, , adCmdText
kol = Me.Ïîëå3
While Not r.EOF
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "UP"
cmd.CreateParameter "OBJ", adInteger, , , kol
cmd.CreateParameter "kol", adInteger, , , 198

cmd.Execute
kol = kol + 1
r.MoveNext
Wend

громное спасибо funddd
не додумалась точнее не знала фуцкции recordcount хотя могла сообразить
Всю жисть через ODBC работала
так работает а тогда вопрос почему в цикл while not r.eof не работает

Не хочу показаться ООООчень настойчивой но все равно не работае EXECUTE
вот дословно текст сообщения
Run Time errror 3709

The connection cannot be used to perform this operetion. It is either closed or invalid in this context

Да правильно нужно обновить данные в таблице определенного поля idOBJ причем idOBj должен быть равен idFlat+1 и так для каждой записи

тоже самое

HELP
тоже самое VB.Net работало а в акессе нет

справиться

Это разовая вещь поэтому никто читать ее не будет
Пытаюсь данные перенести из одной таблицы в другую
Можно как нибудь попроще подскажите алгоритм
есть таблица Квартиры в акессе с большим количеством полей
мне нужно разнести в SQL по двум разным
tOBJ (idObg,DateS)
tFlat (idFlat,idObj и т.д.)

Можно назвать топик Помогите с Запросом