Creating queries

[azizrasul]

I have the following three queries in an MS Access database. I am nowing creating a MS Excel file that does the same as the MS Access db did, for reasons too long to explain.

How can I replicate this in code in the MS Excel file?

    With CurrentDb
        .Execute "DELETE tblComputerSystemInformation.nametype FROM tblComputerSystemInformation WHERE (((tblComputerSystemInformation.nametype) Not In ('OSArchitecture','Name','OSLanguage','RegisteredUser','SerialNumber','SystemDirectory','SizeStoredInPagingFiles','Manufacturer','Name','RegCompany','RegOwner','RegOwner','Name','SerialNumber','Caption','Description','Total RAM','CSDVersion','Microsoft Office','ProcessorId','IPAddress','FileSystem','VolumeSerialNumber')));"
        .Execute "DELETE tblComputerSystemInformation.valuename FROM tblComputerSystemInformation WHERE (((tblComputerSystemInformation.valuename) Like '*Microsoft Visual C++ *' Or (tblComputerSystemInformation.valuename) Like '*Java*' Or (tblComputerSystemInformation.valuename) Like '*Acrobat*' Or (tblComputerSystemInformation.valuename)='Physical Memory'));"
        .Execute "DELETE tblComputerSystemInformation.valuename FROM tblComputerSystemInformation WHERE (((tblComputerSystemInformation.valuename) Like '*Microsoft DCF*' Or (tblComputerSystemInformation.valuename) Like '*MUI*' Or (tblComputerSystemInformation.valuename) Like '*Proofing*' Or (tblComputerSystemInformation.valuename) Like '*Adobe*' Or (tblComputerSystemInformation.valuename) Like '*Click Install if prompted*' Or (tblComputerSystemInformation.valuename) Like '*Google*' Or (tblComputerSystemInformation.valuename) Like '*.NET*' Or (tblComputerSystemInformation.valuename) Like '*Microsoft Silverlight*'));"
    End With