Public Sub ShowData3(LSV As ListView)
        Call AturListView(LSV, "Id", 12, "Zeitstempel", 18, _
            "Modul", 8, "Kanal", 10, "Wert", 12, "Einheit", 12, "Beschreibung", _
            12)
                Set rs = New ADODB.Recordset
                    rs.Open "SELECT * FROM m_value", Conn, adOpenDynamic, _
                      adLockBatchOptimistic
                    LSV.ListItems.Clear
                        While Not rs.EOF
                            Set View = LSV.ListItems.Add
                                View.Text = rs!Id
                                View.SubItems(1) = rs!TimeStamp
                                View.SubItems(2) = rs!ModulNumber
                                View.SubItems(3) = rs!ChannelNumber
                                View.SubItems(4) = rs!Value
                                View.SubItems(5) = rs!Unit
                                View.SubItems(6) = rs!Description
                                lblAnzahl.Caption = rs!Id
                            rs.MoveNext
                        Wend
                    rs.Close
    End Sub