SQL query in VBA

In access I have the following make table query:

SELECT Table1.Field1 INTO Table2
WHERE Table1.Field1 Like "*SomeCriteria*";

How can I repeat this in VBA?

This does not work, something wrong with strings.

Thanks

Sub MakeTable()

Dim strSQL As String

strSQL = "SELECT Table1.Field1 INTO Table2 FROM Table1 WHERE Table1.Field1 Like "*SomeCriteria*""

CurrentDb().Execute strSQL

End Sub

SOLVED!

strSQL = "SELECT Table1.Field1 INTO Table2 FROM Table1 WHERE Table1.Field1 Like '*SomeCriteria*'"