Building off Aivars snippet, maybe you would have the system database at different locations for different users at different sites.
Steve King
Public Function IsRightSystemDb() As Boolean
Dim strSystemDb As String
Dim intChars As Integer
strSystemDb = SystemDB
intChars = Len(strSystemDb)
For intChars = intChars To 0 Step -1
If Mid$(strSystemDb, intChars, 1) = "\" Then
strSystemDb = Mid$(strSystemDb, intChars + 1)
If strSystemDb = "dmatssecure.mdw" Then
IsRightSystemDb = True
GoTo Exit_Proc
Else
IsRightSystemDb = False
End If
End If
Next intChars
Exit_Proc:
Exit Function
HandleErr:
Resume Exit_Proc
Resume
End Function Growth follows a healthy professional curiosity