Private Sub LoadFilialDetails()
        Dim strSQL As String
        Dim ctrl As Object
        Dim feldname As String
 
        sqlds.Clear()
 
        If Me.lstFilialen.SelectedIndex <> -1 Then
 
            Try
                'Alle Filialnamen in das Listenfeld laden
                strSQL = "Select * from ghs_filialstamm where filialnr = '" & _
                  Me.lstFilialen.SelectedItem(0) & "'"
                sqlAdap = New SqlClient.SqlDataAdapter(strSQL, sqlConn)
                sqlAdap.Fill(sqlds, "filialstamm")
                drow = sqlds.Tables("filialstamm").Rows(0)
            Catch ex As Exception
                MsgBox(ex.ToString, MsgBoxStyle.Critical, "Fehler bei Abfrage" & _
                  "des Filialstammes")
            Finally
            End Try
 
            'Editierbare Tabellenfelder in Textboxes anzeigen
            For Each ctrl In Me.GroupBox2.Controls
                If TypeOf ctrl Is TextBox Then
                    feldname = Mid(ctrl.name, 4)
                    Try
                        ctrl.text = drow(feldname).ToString
                    Catch ex As Exception
                        MsgBox("Fehler beim Laden des Feldes " & _
                          feldname.ToUpper & " " & ex.ToString, _
                          MsgBoxStyle.Critical, "")
                    End Try
                End If
            Next
 
            'Felder mit Änderungsinfos in Textbox anzeigen
            For Each ctrl In Me.GroupBox3.Controls
                If TypeOf ctrl Is TextBox Then
                    feldname = Mid(ctrl.name, 4)
                    Try
                        ctrl.text = drow(feldname).ToString
                    Catch ex As Exception
                        MsgBox("Fehler beim Laden des Feldes " & _
                          feldname.ToUpper & " " & ex.ToString, _
                          MsgBoxStyle.Critical, "")
                    End Try
                End If
            Next
 
        End If
    End Sub