Visual Basic - ayuda recordset

hola:
he crado una funcion para que me devuelva un recordset, pero no me lo permite.¿quisiera saber por que?
'*********************************************************************'
Public Function embudo(tabla As String, filtro As String, campo As String, data As Object) As Object

Dim rsbuscar As ADODB.Recordset
Set rsbuscar = New ADODB.Recordset

Set data.DataSource = Nothing

rsbuscar.LockType = adLockPessimistic
rsbuscar.CursorType = adOpenKeyset
rsbuscar.Source = "SELECT * From " & tabla & " WHERE " & campo & " like'" & filtro & "*'"
rsbuscar.ActiveConnection = Conexion
rsbuscar.Open

embudo = rsbuscar

End Function
'************************************'

esperando una pronta respuesta,.
gracias

hola:
he creado una funcion para que me devuelva un recordset, pero no me lo permite.¿quisiera saber por que?
'*********************************************************************'
Public Function embudo(tabla As String, filtro As String, campo As String, data As Object) As recordset

Dim rsbuscar As ADODB.Recordset
Set rsbuscar = New ADODB.Recordset

Set data.DataSource = Nothing
'desengancho el datalite

rsbuscar.LockType = adLockPessimistic
rsbuscar.CursorType = adOpenKeyset
rsbuscar.Source = "SELECT * From " & tabla & " WHERE " & campo & " like'" & filtro & "*'"
rsbuscar.ActiveConnection = Conexion
rsbuscar.Open

embudo = rsbuscar
'devuelvo el recordset

End Function
'************************************'

esperando una pronta respuesta,.
gracias

Hola...

Perdon por no contestar antes, ya que si he leido tu consulta antes.
Creo que tu problema es este: "embudo = rsbuscar ", tu función retornará un objeto y por lo tanto es necesario que hagas esto otro: "set embudo = rsbuscar"

Además si utilizas el objeto conexión, también te falta el set en: "rsbuscar.ActiveConnection = Conexion", pero si Conexion es un string no te preocupes no es necesario.

Espero te sirva...

Olvide decirte que el '*' de un like no siempre funciona, mejor utiliza el '%'