*ClientAccess the DLL name
obj = CreateObject("ClientAccess.CClientAccess","c:\testdata\")
* I've made sure that the database and all tables exist
* Init(lpcDatapath as String)
function Init(lpcDatapath as String)
   if vartype(m.lpcDatapath)="C" ;
     and directory(m.lpcDatapath) ;
   then 
     set path to (m.lpcDatapath)
   endif 
   if file('testdb.dbc') ;
   then 
     open database testdb.dbc
     if dbused('testdb.dbc') ;
     then 
       * use talbes code omitted
     else 
       return .f.
    endif && dbused('testdb.dbc') 
   endif && file('testdb.dbc') 
endfunc && Init