Private Function WriteMessage(ByVal meldung As String)
        'neue Störmeldung wird in Datenbank tblMessage geschrieben
        Dim SQL As String = "Select * FROM tblMessage"
        Dim DR As DataRow
        Dim CB As OleDbCommandBuilder
        Dim tt As String = Date.Now.ToShortDateString + " " + _
          DateTime.Now.ToLongTimeString
        'Abfrage ob sich das Message DataGrid im aktuellen Zustand befindet
        If Me.DatabaseMode_Message = 2 Then
            DA_Message = New OleDbDataAdapter(SQL, adoConn)
            CB = New OleDbCommandBuilder(DA_Message)
 
            '--- Zugriff auf Tabelle
            DT_Message = DS_all.Tables("Message")
 
            ' --- Einfügen eines Datensatzes
            DR = DT_Message.NewRow()
            ' Füllen der Zeile
            DR("message") = tt + " " + meldung
            DR("aktiv") = True
            Try
                'Füge die Zeile hinzu
                DT_Message.Rows.Add(DR)
                'Update der Datenbank 
                DA_Message.Update(DS_all, "Message")
                'erneutes Sortieren des DataGrids ausführen
                Me.DG_sortieren(grdMessage, 2)
            Catch ex As Exception
                MsgBox("Es konnte keine Message hinzugefügt werden!" & _
                  Environment.NewLine & _
                ex.Message, MsgBoxStyle.Critical)
            End Try
        Else
            MsgBox("Sie können nur in der aktuellen Ansicht Testmeldungen" & _
              "hinzufügen!")
        End If
    End Function
 
 
 Private Function DG_sortieren(ByVal Grid As DataGrid, ByVal index As Integer)
        Dim DV As New DataView
        Dim cm As CurrencyManager
        Try
            'erneutes Sortieren des DataGrids vorbereiten
            cm = CType(Me.BindingContext(Grid.DataSource, Grid.DataMember), _
              CurrencyManager)
            DV = CType(cm.List, DataView)
            Select Case index
                Case 1 'grdMeldung
                    DV.Sort = "Uhrzeit " + "DESC"
                Case 2 'grdMessage
                    DV.Sort = "index " + "DESC"
                Case 3
                    DV.Sort = "index " + "DESC"
            End Select
            'Beendet die Bearbeitungsroutine vom CurrencyManager
            cm.EndCurrentEdit()
        Catch ex As Exception
            MsgBox("Der Sortiervorgang konnte nicht ausgeführt werden!" & _
              Environment.NewLine & _
            ex.Message, MsgBoxStyle.Critical)
        End Try
    End Function