Credo che tutto ciò di cui hai bisogno sia questo Dim Rst As ADODB.Recordset e questo Set Rst = cmd.Execute