Private Sub Knoten_Daten_anzeigen(ByVal ID As Long)
        ' Sql Abfrage 
        Dim sql As String = "SELECT * FROM " & Tabelle & " WHERE ID = " & ID & _
          ""
 
        'evt bereits verwendeten DataAdapter freigeben
        If Not da_Knoten Is Nothing Then
            da_Knoten.Dispose()
        End If
 
        'evt gefülltes Dataset löschen und Bindings aufheben
        ds_Knoten.Clear()
        txtBezeichnung.DataBindings.Clear()
 
        ' DataAdapter erstellen
        da_Knoten = New SqlServerCe.SqlCeDataAdapter(sql, conn)
 
        ' Dataset füllen
        da_Knoten.Fill(ds_Knoten, Tabelle)
 
 
        bs_Knoten = New BindingSource(ds_Knoten, Tabelle)
 
        With Me
            .txtBezeichnung.DataBindings.Add("Text", bs_Knoten, "Bezeichnung")
        End With
 
    End Sub

    Private Sub cmdProjneu_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdProjneu.Click
        If ds_Knoten.HasChanges Then
            bs_Knoten.EndEdit()
            Try
                da_Knoten.Update(ds_Knoten, Tabelle)
 
                MessageBox.Show("Datensatz geändert!", "Update", _
                    MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
                   MessageBoxIcon.Exclamation)
            End Try
        End If
    End Sub