Visual Basic - problemas con LIKE

hola a todos, tengo una base de datos en un servidor nt con sqlserver la abro por medio de ADO pero cuando le quiero abrir un recorset por medio de un like no me encuentra nada.
por ej
Dim rsPRUEBA As ADODB.Recordset
Set rsPRUEBA = New ADODB.Recordset

With rsPRUEBA
.ActiveConnection = DB
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "select * from TABLA where CAMPO like '" & CADENA & "*'"
.Open
end with

Si alguie tiene idea que pasa se lo agradezco mucho.

En lugar del * se utiliza el %

.Source = "select * from TABLA where CAMPO like '" & CADENA & "%'"

= \"select * from TABLA where CAMPO like \'*\'\" & CADENA & \'*\'\"

\"select * from TABLA where CAMPO like '*" & CADENA & '*"