If TMM.gbDBExists Then
' Open the database. Don't create it if it does not exist
If TMM.gsqlMB.IsInitialized = False Then
TMM.gsqlMB.Initialize(TMM.gsDBPath,TMM.gsDBName,False)
End If
Else
If Msgbox2("Sorry - could not find ..." & CRLF & _
TMM.gsDBPath & "/" & TMM.gsDBName & _
"Do you want to change the configuration settings," & CRLF & _
"or Exit Application?","Main Database", _
"Configure",TMM.NullString,"Exit",TMM.gbmpLogo36x36) = _
DialogResponse.POSITIVE Then
' Return to the settings file
StartActivity(TMM_Settings)
Else
Activity.Finish
End If
End If
StartActivity(TMM_Run)
End Sub