Public Class Frm_System
 
       Private Dt_user As New DataTable ' DataTable für die DB-Abfrage nur 
       ' userinfos zb. name,tel,email,...
    Private da_alluser As System.Data.SqlClient.SqlDataAdapter
 
    Private Sub Frm_System_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        '
        SubScreenCounter = 1 ' Globaler Fensterzähler
        '
        Me.WindowState = FormWindowState.Maximized
        ' Hauptmenü ausblenden
        Me.MdiParent.MainMenuStrip.Visible = False
        'treeaufbauen
        TreeViewLinks.AllowDrop = True
        TreeViewLinks.HideSelection = False
 
        ' dummy variablen
        Dim perid As Integer
        Dim tt As String
        ' dummy variablen
 
        gottnode = "gottnode"
        perid = User.PerID
        x = 0
        i = 0
 
        Dim tn As TreeNode
 
 
        ' DB-Verbindungsdaten
        Dim ConnectionString As String
        ConnectionString = Appl.Conn_String
 
        ' Abfrageformulierung = Join über Person (Personendaten), 
        ' Rolle (Chef bis Lehrling), Teamdata ( Teamzugehörigkeit) und Team ( 
        ' Teamdaten)
        Dim Abfrage As String
 
        Dim query As String
        Dim conn As New SqlConnection(ConnectionString)
 
 
        query = "SELECT dbo.PERSON.PERID, dbo.PERSON.ACTIVE, dbo.PERSON.ANRED," & _
          "dbo.PERSON.NNAME, dbo.PERSON.VNAME, dbo.PERSON.ADRESSE,  "
        query = query + "dbo.PERSON.PLZ, dbo.PERSON.ORT,  dbo.PERSON.TEL1," & _
        "dbo.PERSON.TEL2,  dbo.PERSON.MOBIL, dbo.PERSON.EMAIL," & _
        "dbo.PERSON.UNAME, dbo.PERSON.SEX "
        query = query + "FROM dbo.PERSON "
 
        'Data-Adapter (Abfrage ausführen und Dataset befüllen)
        'Dim da_alluser As New SqlDataAdapter(Abfrage, ConnectionString)
 
        da_alluser.SelectCommand = New SqlCommand(query, conn)
        da_alluser.Fill(Dt_user)
 
 
 
          End Sub
 
 
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button2.Click
 
        'update changes.
        user_info(0).Item("NNAME") = Fld_Nname.Text
        user_info(0).Item("VNAME") = Fld_Vname.Text
        user_info(0).Item("ADRESSE") = Fld_Adresse.Text
        user_info(0).Item("PLZ") = Fld_Plz.Text
        user_info(0).Item("ORT") = Fld_Ort.Text
        user_info(0).Item("TEL1") = Fld_Tel1.Text
        user_info(0).Item("TEL2") = Fld_Tel2.Text
        user_info(0).Item("MOBIL") = Fld_Mobil.Text
        user_info(0).Item("EMAIL") = Fld_email.Text
 
        da_alluser.Update(Dt_user)
 
    End Sub