Dim madoDataSpace As New RDS.DataSpace
Dim madoDataFactory

Dim rs As New ADODB.Recordset
mstrConnect = "DSN=local;uid=fgic;pwd=fgic"
mstrServer = "http://dev.fgic.capital.ge.com/"
strsql = "select loginid from sys_userinfo"
Set madoDataFactory = madoDataSpace.CreateObject("RDSServer.DataFactory", mstrServer)
Set rs = madoDataFactory.Query(mstrConnect, strsql)