How to use LIKE statement in the SQL Query for an ADO control

[csingeu]

I have this ado data control and a datagrid

The SQL Statement is something like this
SQLString = "SELECT * FROM Main WHERE Name LIKE ('*John*')"

when the display button is clicked, the following statements are executed,

frmDBGrid.Adodc1.CommandType = adCmdText
frmDBGrid.Adodc1.RecordSource = SQLString
frmDBGrid.Adodc1.Refresh
frmDBGrid.DataGrid1.SetFocus

But it seems like the ado data control has no record in it, when there should be.