what is ADO equivalent to the following statement from DAO 1

[rewdee]

In DAO I could write:

with currentdb.OpenRecordSet("Table1",dbopendynaset)

I don't won't to always declare the variables and write:

Dim rs as new ADODB.Recordset
rs.Open "Table1",currentProject.Connection,adOpenDynamic
with rs
...
end with

Thanks,
Rewdee

 

[VBslammer]

Someting like this will do the trick:

Sub OpenTable()
With CurrentProject.Connection.Execute("Select * From [Customers]&quot
Debug.Print .Fields("CustName&quot
End With
End Sub

VBSlammer