PUBLIC _nCH &&хранит десткриптор подключения
_nCH=SQLConnect(lcOdbcDriver,lcUserName,lcPassword)
IF m._nCH<= 0 
	MESSAGEBOX('Не удалось установить соединение')
	RETURN 
ELSE 
***************************
***************************
TEXT TO l_sql NOSHOW PRETEXT  15 
select f_name,i_name,o_name,id_klient
from klient  
where protDate=?m.ldDateOtchet and id_klient = <<lnId_Klient>>
ENDTEXT 

WAIT 'Обработка данных 1 этап из 5' NOWAIT WINDOW TIMEOUT  20  
***
IF SQLEXEC(_nCH,l_sql, 'c_klient')<= 0  
	AERROR(a_er)
	MESSAGEBOX('Ошибка №  '+CAST(a_er( 1 ) as varchar( 6 ))+CHR( 13 )+a_er( 2 ),  16 )
	RETURN 
ENDIF 
****************************
****************************
GO TOP IN c_klient
thisform.grid_color1.RecordSourceType=  1 
thisform.grid_color1.RecordSource='c_klient'
thisform.grid_color1.SetFocus()

WAIT Готово!!!' NOWAIT WINDOW TIMEOUT  20