Article ID: 196293
Article Last Modified on 3/14/2005
SELECT *
From OpenRowset('Microsoft.Jet.OLEDB.4.0',
'd:\program files\microsoft office\office\samples\northwind.mdb';
'admin';'', customers)
Dim cn As ADODB.Connection, rs As ADODB.Recordset, I As Long
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "d:\program files\microsoft
office\office\samples\northwind.mdb"
rs.Open "SELECT * FROM Customers", cn, adOpenKeyset, adLockReadOnly,
adCmdText
For I = 0 To rs.Fields.Count - 1
Debug.Print rs(I).Name
Next I
rs.Close
cn.Close
Keywords: kbprovider kbdatabase kbprb KB196293