(Это мои переменные)
_NAMEDSN=ALLTRIM(thisform.txtDSNName.Value) - Название SysDSN
_PSDSN=ALLTRIM(thisform.txtPaswUser.Value)     - Пароль
_USERDSN=ALLT(thisform.txtUserName.Value)      - User   
_SYSDRVDSN=ALLTRIM(thisform.cboSysDsn.Value) - Название драйвера Оракла (ODBC)
_SERVER=ALLTRIM(thisform.txtServer.Value) - название сервера

declare integer SQLConfigDataSource in odbccp32.dll ;
	integer hwndParent,;
	integer fRequest,;
	string @ lpszDriver,;
	string @ lpszAttributes
pnResCreate=SQLConfigDataSource( 0 , 4 ,_SYSDRVDSN,;
 "dsn=" +_NAMEDSN+chr( 0 )+ "server=" +_SERVER+chr( 0 )+ "uid=" +_USERDSN+chr( 0 )+;
 "BufferSize=65535 "+chr( 0 )+ "StdDayOfWeek=1 "+chr( 0 )+ "SynonymColumns=1 "+chr( 0 )+;
 "StripTrailingZero=0 "+chr( 0 )+ "GuessTheColDef=0 "+chr( 0 )+;
repl(chr( 0 ), 2 ))
IF pnResCreate= 1 
 WAIT WINDOW 'Ок ' TIMEOUT  1 
ENDIF
DECLARE INTEGER SQLWriteDSNToIni IN odbccp32.dll ;
    STRING   cDSN, ;
    STRING   cDriver
pnSaveIni=SQLWriteDSNToIni(_NAMEDSN,_SYSDRVDSN)
IF pnSaveIni= 1 
 WAIT WINDOW 'Ок' TIMEOUT  1 
ENDIF

STORE SQLCONNECT(_NAMEDSN,_USERDSN,_PSDSN) TO gnConnHandle
IF gnConnHandle <=  0 
   = MESSAGEBOX('Cannot make connection',  16 , 'SQL Connect Error')
   return
ELSE
 ff= "SELECT * FROM deposits" 
 =SQLPREPARE(gnConnHandle,ff,'Curs2')
 =SQLEXEC(gnConnHandle)
 SELE curs2
 COPY TO prc_val1.dbf
= SQLDISCONNECT(gnConnHandle)
ENDIF