Set Connection=##class(%SQLGatewayConnection).%New()
Set res = Connection.Connect("DSNName","username","pwd")
Set ResSet=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
Do ResSet.Prepare("SELECT * FROM TABLE",,Connection)
Do ResSet.Execute()
while ResSet.Next() {
   For i= 1 : 1 :ResSet.GetColumnCount() {
      if i'=ResSet.GetColumnCount() {
         Write ResSet.GetData(i)_", "
      } else {
         Write ResSet.GetData(i),!
      }
   }
}
d Connection.Disconnect()

err= 5 
err( 5 )="ОШИБКА #6022: Шлюз: неудачное завершение Execute."
err( 5 ,"caller")="zExecute+1^%Library.SQLGatewayConnection.1"
err( 5 ,"code")= 6022 
err( 5 ,"dcode")= 6022 
err( 5 ,"domain")="%ObjectErrors"
err( 5 ,"namespace")="REG"
err( 5 ,"param")= 1 
err( 5 ,"param", 1 )="Execute"

s file="c:\box\region.dbf"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="_file_";Extended Properties=DBASE III;"
rst.open "select * from FILE_DBF",cnn