Option Explicit
 
Public Const UserDBase As String = "Y:\neu.mdb"
 
 
Public Function IsNewInfo()
IsNewInfo = False
Dim neuste, userinf As Date
Dim db As Database, rs As Recordset
    Set db = DBEngine.Workspaces(0).OpenDatabase(UserDBase)
    Set rs = db.OpenRecordset("SELECT MAX(Informationen.Datum) AS MaxvonDatum" & _
      "FROM Information;", dbOpenSnapshot)
 
neuste = rs!MaxvonDatum
rs.Close
db.Close
 
Set db = DBEngine.Worspaces(0).OpenDatabase(UserDBase)
Set rs = db.OpenRecordset("User", dbOpenTable)
 
Dim Novell As String
Novell = GetUserCodeNT()
rs.Index = "NovellID"
rs.Seek "=", Novell
If rs.NoMatch = False Then
    userinf = rs!lastseen
End If
rs.Close
db.Close
If neuste > userinf Then IsNewInfo = True
End Function