>*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
>
>
>