IF NOT DBUSED("mydatabase.dbc") THEN OPEN DATABASE mydatabase.dbc SHARED ENDIF SET DATABASE TO mydatabase