SoloCodigo

Hola Grupo:
Estoy tratando de retornar datos a un DataGrid no enlazado, utilizo un storedprocedure mediante una funcion que me retorna un recordset, pero me sale error en la siguiente linea:

DataGrid1.DataSource = Retornar_Datos("1")

Error : "Error: 7004 , el conjunto de filas no admite marcadores".

Muchas gracias por todo, aqui esta mi funcion a ver que esta mal.


Public Function Retornar_Datos(xDato As String) As ADODB.Recordset
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
   
    Dim cmd As ADODB.Command
    Dim prm As ADODB.Parameter
    Set cmd = New ADODB.Command  
    cmd.CommandText = "sp_RetornaDatos"
    cmd.CommandType = adCmdStoredProc
    cmd.ActiveConnection = CN
    Set prm = cmd.CreateParameter("TipoFiltro", adChar, adParamInput, 1)
    cmd.Parameters.Append prm
   
    cmd.Parameters("TipoFiltro").Value = xDato
Set rs = cmd.Execute
Set cmd = Nothing
Set Retornar_Datos = rs
   
    Set rs = Nothing
   
End Function

Saludos;

J.M.:

CN es un ADODB.Connection

he preguntado a unos amigos y me dicen que ponga el cursor del lado del cliente y pruebe con eso, pero, como se hace?
he intentado con:

rs.CursorLocation = adUseCliente

pero me sale el mismo error, creo que el error viene por el "cmd" Command.

Gracias;

J.M. ya solucione el problema... era como sigue...

    cmd.Execute
   
    rs.CursorLocation = adUseClient
    rs.Open cmd
   
    cmd.ActiveConnection = Nothing
    Set cmd = Nothing
   
    Set Retornar_Datos = rs
   
    rs.ActiveConnection = Nothing
    Set rs = Nothing

Gracias por todo.