Private Sub read_grdMeldung()
        Dim sSQL As String
        ' SQL = "SELECT IdentNr,Timestamp,status,Meldung FROM tblMeldung ORDER" & _
          "BY Timestamp DESC"
        sSQL = "SELECT * FROM tblMeldung ORDER BY Timestamp DESC"
        AddToDS("Meldungen", adoConn, sSQL)
 
        Dim DgTs1 As New DataGridTableStyle
        Dim DgCs As New DataGridTextBoxColumn
 
        With DgCs
            .HeaderText = "IdentNr"
            .Alignment = HorizontalAlignment.Center
            .Width = 120
            .MappingName = "IdentNr"
        End With
        DgTs1.GridColumnStyles.Add(DgCs)
 
        DgCs = New DataGridTextBoxColumn
        With DgCs
            .HeaderText = "Zeit"
            .Alignment = HorizontalAlignment.Center
            .Width = 160
            .MappingName = "Timestamp"
        End With
        DgTs1.GridColumnStyles.Add(DgCs)
 
        DgCs = New DataGridTextBoxColumn
        With DgCs
            .HeaderText = "Status"
            .Alignment = HorizontalAlignment.Center
            .Width = 150
            .MappingName = "status"
        End With
        DgTs1.GridColumnStyles.Add(DgCs)
 
        DgCs = New DataGridTextBoxColumn
        With DgCs
            .HeaderText = "Meldung"
            .Alignment = HorizontalAlignment.Left
            .Width = 1000
            .MappingName = "Meldung"
        End With
        DgTs1.GridColumnStyles.Add(DgCs)
 
        With grdMeldung
            .TableStyles.Add(DgTs1)
            .TableStyles.Item(0).MappingName = "Meldungen"
            .SetDataBinding(DS_all, "Meldungen")
        End With
 
        'Ressourcen freigeben
        DgTs1.Dispose()
        DgCs.Dispose()
    End Sub