PUBLIC gnConnHandle
gnConnHandle = SQLCONNECT('SQLserver', 'clientlogin', 'clientpassword') 
IF m.gnConnHandle <=  0  
	LOCAL laError( 1 ), lcMessageText
	=AERROR(laError)
	lcMessageText = 'Произошла ошибка № '+LTRIM(STR(laError[ 1 , 5 ]))+chr( 13 )+;
			RTRIM(SubStr(laError[ 1 , 3 ],RAT("]",laError[ 1 , 3 ])+ 1 ))+chr( 13 )+;
			'Обратитесь к администратору сервера или разработчику программы.'

	MESSAGEBOX(m.lcMessageText, 0 ,"соединение с сервером...")
ENDIF