Función que ejecuta una SQL, quedando el ADO recordset desconectado. Si
deseas utilizar un Stored Procedure o bien una table tienes que cambiar
el tipo del CommandType (adCmdTable, adCmdStorProc, etc). Para los
parámetros deberás crear un objeto del tipo ADO.Parameter.

Private Function ExecuteSQL(ByVal sSQL As String) As ADODB.Recordset
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
    If mvar_Connection Is Nothing Then Exit Function
    'Se crea un objeto de tipo command para realizar la ejecución de la
SQL
    Set cmd = New ADODB.Command
    With cmd
        Set .ActiveConnection = mvar_Connection
        .CommandTimeout = 10
        'Indica que el commando es de tipo texto (instrucción SQL)
        .CommandType = adCmdText
        .CommandText = sSQL
        'Ejecución de la sentencia SQL
        Set rst = .Execute
    End With
    Set ExecuteSQL = rst
    Set cmd = Nothing
    Set rst = Nothing
Exit Function

fernando guillermo de la cruz cabello <fernando.delacru-@caritas.org.pe
> wrote:
original article:http://www.egroups.com/group/visualbasic-esp/?start=61
71
> Amigos:
>
> Necesito información sobre Recordset Desconectados con ADO?.
> En especial de algun listero que las este usando con Stored
Procedures en
> SQL Server
>
> Agradeceré cualquier información.
>
> Saludos,
>
> ---------------------------------------------------------------------
-----
> Fernando De la Cruz Cabello
> Cáritas del Perú - Calle Omicrón No. 492 Callao
> Telef. 511-4645503 fax 511-4642595
> http://www.caritas.org.pe
> E_mail: fernando.delacruz@caritas.org.pe