为什么不能实现删除查询子窗体中的记录

skylark

Private Sub Command33_Click()
    On Error GoTo Err_Command33_Click

    If Len(strWhere) > 0 Then

        CurrentDb.Execute "Delete * From CompanyInfo Where " & strWhere
        Me![SubQuery].Requery
        MsgBox "删除成功!", 0 + 4 + 64
    Else
        MsgBox "没有选择纪录",0 + 4 + 32
    End If
Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click

End Sub

筛选出的会全删除.