Dim SQL As String = "Select * FROM tblMeldung"
        Dim DR As DataRow
        Dim CB As OleDbCommandBuilder
 
        DA_Meld = New OleDbDataAdapter(SQL, adoConn)
        CB = New OleDbCommandBuilder(DA_Meld)
 
        '--- Zugriff auf Tabelle
        DT_Meld = DS_all.Tables("Meldungen")
 
        'Freigabe für das Schreiben im DataGrid
        grdMeldung.ReadOnly = False
        ' --- Einfügen eines Datensatzes
        DR = DT_Meld.NewRow()
        ' Füllen der Zeile
        DR("IdentNr") = id
        ' DR("Timestamp") = Time
        'DR("status") = status
        DR("Meldung") = meldung
        Try
            'Füge die Zeile hinzu
            DT_Meld.Rows.Add(DR)
            'Update der Datenbank erlauben
            DA_Meld.Update(DS_all, "Meldungen")
            'keine Freigabe für das Schreiben im DataGrid
            grdMeldung.ReadOnly = True
        Catch ex As Exception
            MsgBox("Es konnte keine Meldung hinzugefügt werden!" & _
              Environment.NewLine & _
            ex.Message, MsgBoxStyle.Critical)
        End Try