Programming Excel with VBA and .NET

Name

querydef.OpenRecordset([Type], [Options]), [LockEdits])

Synopsis

Opens the record.

Argument	Description
Type	The type of recordset to open: dbOpenTable, dbOpenDynamic, dbOpenDynaset, dbOpenSnapshot, or dbOpenForwardOnly.
Options	A combination of constants that specify characteristics of the recordset. See DAO Help for more information about these options.
LockEdits	The locking used by the recordset: dbReadOnly, dbPessimistic, dbOptimistic, dbOptimisticValue, or dbOptimisticBatch.

The following code example displays the contents of the recordset produced by the Invoices query in the Northwind Traders sample database on the active sheet:

Dim strDbPath As String
Dim db As DAO.Database
Dim qry As DAO.QueryDef
Dim rs As DAO.Recordset
Dim qt As QueryTable
 
strDbPath = "C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb"
 
Set db = OpenDatabase(strDbPath)
Set qry = db.QueryDefs("Invoices")
Set rs = qry.OpenRecordset
 
Set qt = ActiveSheet.QueryTables.Add(Connection:=rs, _
    Destination:=ActiveSheet.Range("A1"))
 
qt.Refresh