int SUB testconnect()
dispatch con="ADODB.Connection"


con.ConnectionString="Driver={Pervasive ODBC Client Interface};ServerName=HP;ServerDSN=testowy;Uid=Master;Pwd=11111111;"
con.Open()

dispatch rs = "ADODB.Recordset"
string sSQL = "SELECT * FROM AW"

if rs.State == 1 then rs.Close()
rs.Open(sSQL, con, 3)
if rs.RecordCount > 0 then  // nigdy nie wchodzi, bo rs.RecordCount = -1
   rs.MoveFirst()
   while !rs.EOF
      message rs.Fields("value").Value
      rs.MoveNext()
   wend
endif
endsub

testconnect()

rs.Open(sSQL, con, 3, 3)