FUNCTION integer SQLAllocEnv(ref long henv) LIBRARY "odbc32.dll"
FUNCTION integer SQLFreeEnv(long henv) LIBRARY "odbc32.dll"
FUNCTION integer SQLDataSources (long henv, integer idirection, ref string szdsn, int idsnmax, & 
ref integer idsn, ref string szdesc, integer idescmax, ref integer idesc) library "odbc32.dll"

long ll_henv
string ls_dsn, ls_desc
integer li_direction, li_dsnmax, li_dsnlen, li_descmax, li_desclen, li_rc
integer li_length =  255 

ls_dsn = Space(li_length)
li_dsnmax = li_length
ls_desc = Space(li_length)
li_descmax = li_length

IF SQLAllocEnv(ll_henv) = - 1  THEN
    MessageBox("SQLAllocEnv", "FAILURE")
ELSE
    li_direction =  1 
    DO WHILE SQLDataSources  (ll_henv, li_direction, ls_dsn, li_dsnmax, li_dsnlen, &
         ls_desc, li_descmax, li_desclen) =  0 
         messagebox (ls_dsn , ls_desc )
    LOOP
    SQLFreeEnv(ll_henv)
END IF