FUNCTION getodbc
IF !("REGISTRY" $ SET("CLASS"))
	SET CLASSLIB TO (m.gcini_path+"libs\registry.vcx") ALIAS registry ADDITIVE
ENDIF
oreg=CREATEOBJECT("odbcreg")
nErrNum = oReg.GetODBCDrvrs(@aODBCData,.T.)
RELEASE oreg
RELEASE CLASSLIB registry
RETURN ALEN(aodbcdata,1)
