baglan=sqlstringconnect;
    ("DRIVER=SQL Server;SERVER=myserver;uid=myuser;pwd=mypassw")
if baglan<1
  aerror(xxx)
  messagebox(xxx(2))
  messagebox(xxx(5))
endif 
                  
SQLEXEC(baglan,"use mydatabase")
sqlexec(baglan,"select * from customers","xcustomer")
   browse

SQLdisconnect(baglan)