db.Isopen always returning false because the connection out to the server is slow

Set directory=session.GetDbDirectory(servername)Set db=directory.GetFirstDatabase(DATABASE)

While Not (db Is Nothing)

If db.IsOpen Then

Print “Success”

Else

Print “DB Not open”

End If

Set db=directory.GetNextDatabase

Wend

there are 700 dbs on that server and they all come back as unopenable (“Not Open”)?

When I spot check a few manually it takes a long time but they will open.

Is there a way I can specify a longer “open attempt” time?

thks,

-MC

Subject: db.Isopen always returning false because the connection out to the server is slow

you have to Call db.Open( “”, “” )

If Not db.IsOpen Then Call db.Open( “”, “” )

if db.IsOpen then

Print “Success”

Else

Print “DB Not open”

End If

regards!