Здравствуйте! Посмотрите, пожалуйста, есть ли ошибка или как лучше выполнить запрос в VBA?

Private Sub Кнопка5_Click()
If IsNull(Me.name_obj) Then Exit Sub
If MsgBox("Підтвердження видалення запису " & Me.name_obj.Value, vbYesNo + vbDefaultButton2, "Запис буде видалено") = vbYes Then

With CurrentDb.QueryDefs("Запрос1")
       .Parameters("ID_tsh") = Me.name_obj.Value
       .Execute
    End With
Me.name_obj.Requery
End If
End Sub

просто как запрос на удаление выполняется.

DELETE tbl_dir_obj.id
FROM tbl_dir_obj
WHERE (((tbl_dir_obj.id)=[ID_tsh]));

http://www.sql.ru/forum/1216307/est-li-oshibka