Running LIKE SQL in VB CODE

The Query which is working fine in Queries section but doesn't show any
record while applied through recordset.

the Code fragment is

Set Cn = New ADODB.Connection
AccessConnect = "Data Source='data1'"
Cn.ConnectionString = AccessConnect
Cn.Open
Set rs = Cn.Execute("SELECT * FROM Data WHERE (Data.[Debtor Name])
Like '*" & Debtor_Name1 & "*'")


in this case rs.eof & rs.bof are always true.

Suggest Please ...

Like '%' & Debtor_Name1 & '%'

Use % as the wild card character in ADO.