Store procedure en visual basic

[xochitemol]

hola mi pregunta es la siguiente he creado un store procedure a donde le paso un parametro pongo el codigo y despues pongo el problema. LO HAGO DESDE VISUAL BASIC 6.0

'***********************
'CODIGO STORE PROCEDURE SQL SERVER 2000
'***********************

if exists(select name from sysobjects where name ='xochitemol2' and type='p')
drop procedure xochitemol2
go
create Procedure Xochitemol2
@datos_busca char(40)
as
select * from datos where nombre like @datos_busca
go

AHORA PASO LA FORMA DE PASARLE EL PARAMETRO

'**********************
'PASO PARAMETRO
'**********************

rs_lista.Open "exec xochitemol '" & nombre_param & "'", ADO_Cn, adOpenDynamic, adLockBatchOptimistic

ahora lo que quiero es que me saque los datos que piezen con un par de letras por ejemplo si en un textbox escribo ' san' me saque los datos que empiezen con eso

sanchez
sandoval

en el query analyzer lo hago asi y si funciona

select * from datos where nombre like '%san%'

pero en el store ya no me funciona