[V4RB] OPEN/Close trick?

[Karen]

I can't seem to get it to work.
If the DB is in use on the First try I get error -61. on all subsequent 
retries Get Error 524 even after the other client closes the db.

I must be missing something

My attempt to open routine in the VDataBase subclass is :

Function TryToOpen() As Integer
    Dim Num, err as integer ' Put in so I could see easily them in the 
debugger

    isOpen = Super.Open(Location)

    err = me.ErrNumber
    If IsOpen AND err = 0 Then ' see if can write to it

       Num = me.SqlExecute("UPDATE Dummy SET F = 2 WHERE RecID = 1")
       err = me.ErrNumber
       if err <> 0 Then
          me.Close
          isOpen = False
       End if

    End if

    Return err
End Function

What am I doing wrong?

This is on OSX BTW . Should this trick work on OS9, and Win2K? I need 
it to!

-Karen