How to run the SQL statement in Excel VBA

[new.microsoft.com]

I have a SQL statement like
"Select * from sheet1 where name=John" to extract the data in sheet1 in a
workbook to another new sheet in the current workbook or a new workbooks,
how can I run this SQL in the VBA

Thanks