[Gambas-user] convert code vb to gambas

[gunartha.nyoman]

Dear All,

I try to create code to fin a record as :
where run get message : unknown symbol EOF in result .....

PUBLIC SUB FindStok()
  DIM strsql AS String
  DIM rs AS Result

   strsql = " select code,nm_brg,pricef,avgcost from goods where code ='002' " 
   rs = conn.Exec(strsql)
   
    'code in visual basic, how to convert to gambas
    'rs as new adodb.recordset (in vb)
   IF NOT rs.EOF THEN 
      txtKD_BRG.Text = rs!nm_brg

   else
	message ("no records found ")
   ENDIF  
END

Thank you
regards
Gunartha