From ADO to DAO

I need to trasform this ADO code for DAO, i spossible?
tks.

Code:

---

...
Set objCommand = New ADODB.Command
    With objCommand
        .ActiveConnection = CONN
        .CommandText = "AGG_ALBERO1"
        .CommandType = adCmdStoredProc
        .Prepared = True
        .Execute , , adExecuteNoRecords
        Set objCommand = Nothing
    End With
...

---

Try next

Code:

---

Dim Rs as Recordset
      ' Open your desired database here.
      Set MyDB = DBEngine.Workspaces(0).OpenDatabase(...
      Set Rs = MyDB.OpenRecordset("AGG_ALBERO1", dbOpenSnapshot, dbSQLPassThrough)

---

Quote:

---

Originally Posted by jggtz

Try next

Code:

---

Dim Rs as Recordset
      ' Open your desired database here.
      Set MyDB = DBEngine.Workspaces(0).OpenDatabase(...
      Set Rs = MyDB.OpenRecordset("AGG_ALBERO1", dbOpenSnapshot, dbSQLPassThrough)

---

---

nice!!! tkx.

i'm new with DAO...
but this tips really spoeed up the query exceution directlly the Query in Acces databse? or exists other way?

note:
I want to migrate the project to ADO but i need to change, perpah a milion of lines, and i not have time for tath:-)