' Conn = geöffnetes Connection-Objekt
        Dim conn As New SqlCeConnection
        conn.ConnectionString = "datasource = Datenbank.sdf"
        conn.Open()
        Dim dt As DataTable = conn.GetSchema("Tables")
        For Each row As DataRow In dt.Rows
            ListBox1.Items.Add(row("TABLE_NAME").ToString)
        Next