s conn = ##class(Activate.ADODB.Connection).%New()
	s connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DATA;Extended Properties=Paradox 5.x;"
	d conn.Open(connStr)
	w conn.State,!
	s sqlStr = "SELECT PrDocumentDate FROM JRGoodOut"
	try {
		s rs = conn.Execute(sqlStr)
	} catch {
		do DecomposeStatus^%apiOBJ(%objlasterror,.Err) 
		w Err(Err),!
	}
	q 1

    s conn=##class(%SQLGatewayConnection).%New()
    s sc=conn.Connect("cust1","","")
    if $$$ISERR(sc) {
		do DecomposeStatus^%apiOBJ(sc,.Err) 
		w Err(Err)
    }
    w sc,!
    s res=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
    s sc=res.Prepare("SELECT PrDocumentDate FROM jrgoodout",,conn)
    If $$$ISERR(sc) {
		do DecomposeStatus^%apiOBJ(sc,.Err) 
		w Err(Err)
    }
    w sc,!
    s sc=res.Execute()
    If $$$ISERR(sc) {
		do DecomposeStatus^%apiOBJ(sc,.Err) 
		w Err(Err)
    }
    While res.Next() 
    { 
    	w !,res.GetData(1),! 
    } 
    s sc=conn.%Close() 
    q sc