Bases de Datos - Consulta registros

Buenas, a ver si me podeis ayudar. Tengo una base de datos en SQL, y accede a ella atraves de ADO, todo esto en Visual Basic 6.0. En la conexión no tengo ningun problema, es a la hora de mostrar todos los registros, el codigo que utilizo es el siguiente:

rst.Open "SELECT Cliente.Nombre, ClienteDatoOperativo.NombreComercial, Cliente.CodigoCliente, ClienteZona.Descripcion " & _
"FROM Cliente INNER JOIN ClienteDatoOperativo ON " & _
"Cliente.CodigoCliente = ClienteDatoOperativo.CodigoCliente, " & _
"ClienteZona " & _
"Where (((Cliente.Nombre) Like '%" & UCase(txtNombre.Text) & "%')) " & _
" And Cliente.CodigoCliente = ClienteDatoOperativo.CodigoCliente And " & _
"Cliente.CodigoZona = ClienteZona.CodigoZona " & _
"ORDER BY Cliente.Nombre;", cnn, adOpenDynamic, adLockOptimistic
Quiero que me muestre todos los registros cuando en la caja de texto pongo *. Con este codigo me muestra todos los que contengan *.
Muchas gracias de antemano, espero que alguien sepa la respuesta.
Gracias

Ya lo he mirado, resulta que ADO no reconoce *, por lo que hay que sustituir el * por %. Dentro de la select quedaria:

Select .......
From ...........
Where (((Cliente.Nombre) Like '%" & UCase(vReemplaza) & "%')) "
el resto igual

la variable vReemplaza = (txtNombre.text, "*", "%"), por si acaso alguien pone *, lo reemplazo, y no da error.