RDSServer.DataFactory Object, Query Method, CreateObject Method Example

<OBJECT CLASSID="clsid:9381D8F5-0288-11d0-9501-00AA00B911A5" ID="ADF1" HEIGHT=1 WIDTH=1>
</OBJECT>
.
.
.
Dim myRS
Set ADF1 = ADS1.CreateObject("RDSServer.DataFactory", _
	"http://SalesWeb")
Set myRS = ADF1.Query _
	("DSN=SalesDB;UID=SMgr;PWD=password;", _
	"Select * from Sales")
ADC1.Recordset = myRS