VFP have a ODBC API Wrapper in the FFCs, check for Tools --> Component Gallery --> Foundation Classes --> Utilities --> ODBC Registry.

oReg = CREATEOBJECT("ODBCreg")

IF VARTYPE(oReg)='O' 
  *** Obtener en un arreglo (array), los DSN registrados **
  *** Gets an array including all the DSN  ***
  lnErrNum = oReg.GetODBCDrvrs(@laODBCData,.T.)
  *** DO Something  
ENDIF

Hope this Help