hlcConnStr = "DRIVER={SQL Server};SERVER="+alltrim(__ServerIP)+";DATABASE="+alltrim(__ServerDB)+;
	";uid="+hLogin+";pwd="+hPassword+";NETWORK=dbmssocn;App="+_ipadress+_screen.caption+";LANGUAGE=Russian;"+;
	";ADDRESS="+alltrim(__ServerIP)

SQLSETPROP(0,'DispWarnings',.f.) 
*SQLSETPROP(0,'ConnectTimeOut',3) 
SQLSETPROP(0,'DispLogin',3)

*SQLSETPROP(0,"PacketSize",4096)
*SQLSETPROP(0,"PacketSize",3000)

hConnect=SQLSTRINGCONNECT(hlcConnStr)
IF hConnect < 0
   = MESSAGEBOX('А пароль то не твой ай-я-я-яй!', 16, 'Ошибка')
   thisform.text1.setfocus()
	IF __typeProg=2
		quit
	endif   
   return .t.
ENDIF