Dim con As New OleDbConnection(cDataBase.ConString)
        Dim cmd As OleDbCommand = con.CreateCommand
        cmd.CommandText = "SELECT MAX(Datum) FROM Tabelle"
        Dim MaxDatum As Date = CType(cmd.ExecuteScalar, Date)
        MessageBox.Show("Das höchste Datum ist " & MaxDatum.ToString( _
          "dd.MM.yyyy hh:mm"))