Visual Basic - procedimiento almacenado

Dim  TOINV         As ADODB.Recordset

Dim  MiCom        As ADODB.Command

Set MiCom = New ADODB.Command

    With MiCom

        .ActiveConnection = MiSQL1 'esta es la coneccion a un servidor sql

        .CommandType = adCmdStoredProc

        .CommandText = "Astral_10_sp_SAT_AbreParaFacturas"

        .Parameters.Append MiCom.CreateParameter("SFolioI", adVarChar, adParamInput, 10)

        .Parameters("SFolioI").Value = Format(GFolio1)

        .Parameters.Append MiCom.CreateParameter("SFolioF", adVarChar, adParamInput, 10)

        .Parameters("SFolioF").Value = Format(GFolio2)

        .CommandTimeout = 0

        .Prepared = True

        Set TOINV = New ADODB.Recordset

        Set TOINV = .Execute

    End With

    Set MiCom = Nothing