I changed the code to the following:

if dbfDataEnv.rssqlDepartment.state = 0 then
dbfDataEnv.rssqlDepartment.open
end if

This gives me the same error on the open line