ADO Code 66 Seconds
Set dcndb = New ADODB.Connectio n
dcndb.Provider = "Microsoft.Jet. OLEDB.4.0"
dcndb.Connectio nString = "Data Source=" + dtbs$
dcndb.Open
Set rsUsers = New ADODB.Recordset
rsUsers.Open Sql$, dcndb, adOpenForwardOn ly, adLockReadOnly
DAO Code 20 Seconds
Set rDb = DBEngine.Worksp aces(0).OpenDat abase(dtbs$)
Set rsUsers = rDb.OpenRecords et(Sql$)
*** Sent via Developersdex http://www.developersdex.com ***
Set dcndb = New ADODB.Connectio n
dcndb.Provider = "Microsoft.Jet. OLEDB.4.0"
dcndb.Connectio nString = "Data Source=" + dtbs$
dcndb.Open
Set rsUsers = New ADODB.Recordset
rsUsers.Open Sql$, dcndb, adOpenForwardOn ly, adLockReadOnly
DAO Code 20 Seconds
Set rDb = DBEngine.Worksp aces(0).OpenDat abase(dtbs$)
Set rsUsers = rDb.OpenRecords et(Sql$)
*** Sent via Developersdex http://www.developersdex.com ***
Comment