jop, I do:

DEFINE CLASS wsodbc as Session olepublic

FUNCTION OpenODBC
LOCAL lnConn
lnConn = SQLCONNECT("test")
IF lnConn > 0
SQLDISCONNECT(lnConn)
ENDIF
ENDFUNC

ENDDEFINE