FAM,

Local cBuffer, nBufsize, ii, ch, cName
nBufsize = 16384
cBuffer = Repli(Chr(0), nBufsize)
Declare Integer SQLGetInstalledDrivers In odbccp32;
STRING @lpszBuf, Integer cbBufMax, Integer @pcbBufOut
If SQLGetInstalledDrivers(@cBuffer, nBufsize, @nBufsize) = 0
Return
Endif
Create Cursor csResult (drvname C(100))
cBuffer = Substr(cBuffer,1,nBufsize)
cName = ""
For ii=1 To nBufsize
ch = Substr(cBuffer, ii,1)
If ch = Chr(0)
Insert Into csResult Values (m.cName)
cName = ""
Else
cName = cName + ch
Endif
Endfor
Go Top
Locate For Alltrim(drvname)="HyTech SQL Server ODBC Driver"
If Found()=.F.
=Messagebox(errmes1,16,"Нет драйвера ODBC Driver HyTech")
Close Databases
Clear Events
Quit
Else
lcConnectString='SERVER="";DRIVER=HyTech SQL Server ODBC Driver;UID=*;PWD=*;APP=Microsoft Visual FoxPro;WSID=Administrator;DATABASE=*****;LANGUAGE=???????;Network=DBMSSOCN;Regional=Yes'
Store Sqlstringconnect(lcConnectString,.T.) To _sql_connect


мож это пригодится список всех установленных в системе ODBC драйверов и не только