Как перенести записи по логическому условию из одной таблицы в другую?

Private Sub Кнопка2_Click()
    Call AllRecordsInRecordset
End Sub
 
 
Private Sub AllRecordsInRecordset()
            'Перебор всех записей в наборе
            Dim rstIst As DAO.Recordset
            Dim rstAdresat As DAO.Recordset
            
            On Error GoTo AllRecordsInRecordsetErr
                                
                ' Set rstIst = CurrentDb.OpenRecordset("02_01_Задачи", dbOpenSnapshot)  'Только просмотр
                Set rstIst = CurrentDb.OpenRecordset("SELECT [02_01_Задачи].Выбор, [02_01_Задачи].ИмяЗадачи FROM 02_01_Задачи WHERE ((([02_01_Задачи].Выбор)=True));", dbOpenDynaset)  'Только просмотр
                
                Set rstAdresat = CurrentDb.OpenRecordset("02_02_Задачи", dbOpenDynaset)   'Открытие на редакцию
                
                
                With rstIst
                Do While True
                            
                            rstAdresat.AddNew
                            rstAdresat!ИмяЗадачи = !ИмяЗадачи
                            rstAdresat.Update
                        
                         .MoveNext
                        '...
                    '  Loop
                    Loop
                End With
                
                
            
AllRecordsInRecordsetEnd:
                On Error Resume Next
                rstIst.Close
                Set rstIst = Nothing
                Exit Sub
                
AllRecordsInRecordsetErr:
                MsgBox "Процедура [...] привела к ошибке:" & vbCrLf & _
                Err.Description & vbCrLf & " Err#" & Err.Number, vbCritical
                Resume AllRecordsInRecordsetEnd
End Sub

Private Sub Кнопка2_Click()
    
Dim sSQL As String
    
    'Call AllRecordsInRecordset
    
'Запрос на добавление
    sSQL = "INSERT INTO 02_02_Задачи (ИмяЗадачи) SELECT ИмяЗадачи FROM 02_01_Задачи WHERE Выбор=True"
    CurrentDb.Execute sSQL
    
'Запрос на Изменение (снимаем отметку)
    sSQL = "UPDATE 02_01_Задачи SET Выбор = False WHERE Выбор=True"
    CurrentDb.Execute sSQL
    
'ИЛИ: Запрос на Удаление (перенесённых уже записей)
    'sSQL = "DELETE FROM 02_01_Задачи WHERE Выбор=True"
    'CurrentDb.Execute sSQL
    
'Обновление данных форм
    Me!objSubForm01.Form.Requery
    Me!objSubForm02.Form.Requery
    
End Sub