local lcConnString, lnConnection
	
text to lcConnString noshow pretext  15 
	Driver=SQL Native Client;
	SERVER=.....;
	DATABASE=....;
	uid=sa;
	pwd=вашпароль;
endtext	

lnConnection = sqlstringconnect(lcConnString)
if lnConnection<= 0 
   messagebox('не подцепился')
   return 
endif