Buenos dias,
Disculpe por reabrir este mensaje pero tengo la solucion a lo que usted
necesita. Veamos su ejemplo
Conn.BeginTrans
> Cmd.ActiveConnection = Conn
> Cmd.CommandText = "select
> kardexf('017033','01/04/2009','30/04/2009','data');FETCH ALL IN data;"
> Set Rst = Cmd.Execute
Rst.NextRecordset 'falta esto
> Do Until Rst.EOF
> Me.List1.AddItem Rst.Fields(0) 'Rst!Movimiento
> Rst.MoveNext
> Loop
> Rst.Close
> Conn.CommitTrans
y ya eso es todo. Con eso muestra el resultado del fetch, es decir muestra los
datos del cursor
