<OBJECT CLASSID="clsid:9381D8F5-0288-11d0-9501-00AA00B911A5" ID="ADF1" HEIGHT=1 WIDTH=1>
</OBJECT>
.
.
.
Dim myRS
Set ADF1 = ADS1.CreateObject("AdvancedDataFactory", _
"http://SalesWeb")
Set myRS = ADF1.Query _
("DSN=SalesDB;UID=SMgr;PWD=password;", _
"Select * from Sales")
ADC1.Recordset = myRS
© 1997 Microsoft Corporation. All rights reserved. Terms of Use.