Select @Busqueda

Que tal amigos..!!

Estoy tratando de asignar a un LISTBOX un procedure que
proviene de una sentencia SQL asignada desde VB, el
problema es que cuando corro el Procedure y pongo la
instruccion SELECT Nombre from Directorio, funciona muy
bien, el problema lo tengo cuando lo ejecuto desde VB este
no aparece nada en el LISTBOX,a que se debera esto?


PROCEDURE

Alter Procedure Prueba
@Busqueda varchar(900)
As
exec (@Busqueda)

VBA
sql = "Select Nombre from Directorio"
Debug.Print sql
cmd.commantext="Prueba"
cmd.commandtype=4
cmd.Parameters.Append cmd.CreateParameter("@Busqueda",
adChar, adParamInput, 100, sql)

cmd.Execute
Set cmd = Nothing
ListaCv.RowSource = "prueba"