Область "Выполнить"

Пишу в область "Выполнить" процедуру по удалению не нужных записей из таблицы.
Записи она удаляет,  но вместо них оставляет "#Удалено"

И при формировании отчёта она эти записи вставляет или даёт ошибку "Запись удалена".

Что не так? Вот код:

[code]
Public Sub Кнопка61_Click()
    With Form_DET
    .ПолеСоСписком59.SetFocus
          If .ПолеСоСписком59.Text = "" Then
            MsgBox ("Не выбрано")
            Else
                Dim qd As QueryDef
                Set qd = CurrentDb.CreateQueryDef("")
                qd.SQL = "delete from RptSheet2 where P15 <> '" + .ПолеСоСписком59.Text + "'"
                qd.Execute
          End If
            DoCmd.Close acForm, "DET"
        End With
End Sub
[/code]
[/code]