From ADO to DAO

[luca90]

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

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

[jggtz]

Try next

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

[luca90]

Try next

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:-)