Dim dbdir As New NotesDBDirectory("dominosb2/dominosb2" )	
Dim tdb As notesdatabase
Set tdb = dbdir.GetFirstDatabase(Database)     
If tdb Is Nothing Then
	Print "first db could not be opened" 
Else
	Do While Not (tdb Is Nothing)
			If tdb.Title="Meme's Bakery Cafe" Then
			Print tdb.title + "(" + tdb.filepath + ")"
			Print "[" + "<br>" + "]"
			Call tdb.Open( "", "" )
			If tdb.IsOpen Then
				Print "db open " & Now
			Else
				Print "db not open " & Now'
			End If	
			Exit Do
		End If
		Set tdb = dbdir.GetNextDatabase
	Loop
End If