bolUseIcons = True
    Set rst = New ADODB.Recordset
    Set cmd = New ADODB.Command
 
    cmd.ActiveConnection = GetConn()
    cmd.CommandText = "kec_sp_GesamtverzeichnisTeilnehmer"
    cmd.CommandType = adCmdStoredProc
    Set rst = cmd.Execute
 
    With clsObjGrid
        ' Übergabe der Icons
        If bolUseIcons Then
            If clsbolImagesRead = False Then
                For Each objImage In GetGlobalImageListe().ListImages
                    .Icons.Add objImage.Picture, objImage.Key
                Next
                clsbolImagesRead = True
            End If
        End If
        .LockUpdate True
        .DataMode = Mode_Recordset
        .WheelMouse = True
        .CheckBoxStyle = CHECKBOX_MODERN
        .CreateClone = True
        .Clear True
        Set .Recordset = rst
    End With
    ' Übergabe der Feldnamen als Key für die Spalten
    For n = 0 To rst.Fields.Count - 1
        Set objColumn = clsObjGrid.Columns(n + 1)
        With objColumn
            .Key = rst.Fields(n).Name
            .LockEdit = True
            .ColType = TYPE_TEXT
            .Align = ALIGNMENT_LEFT
            .HeadAlign = ALIGNMENT_LEFT
            Select Case .Key
                Case "strAnrede"
                            .Visible = True
                            .Width = 400
                            .Caption = "Anr."
                            .Position = 1
                Case "strName"
                            .Visible = True
                            .Caption = "Name"
                            .Width = 1500
                            .Position = 2
                Case "strVorname"
                            .Visible = True
                            .Caption = "Vorname"
                            .Width = 1000
                            .Position = 3
                Case "strFirma"
                            .Visible = True
                            .Caption = "Firma"
                            .Width = 1000
                            .Position = 4
                Case "strKostentraeger"
                            .Visible = True
                            .Caption = "Abteilung"
                            .Width = 1000
                            .Position = 5
                Case "strEmail"
                            .Visible = True
                            .Caption = "Email"
                            .Width = 1000
                            .ColType = TYPE_EMAIL
                            .Image = clsObjGrid.ImageByKey("imgV2_MailEdit")
                            .Position = 6
                Case "strTelefon"
                            .Visible = True
                            .Caption = "Telefon"
                            .Width = 1000
                            .Position = 7
                Case "strFunktelefon"
                            .Visible = True
                            .Caption = "Handy"
                            .Width = 1000
                            .Position = 8
                Case "strFax"
                            .Visible = True
                            .Caption = "Fax"
                            .Width = 1000
                            .Position = 9
                Case Else
                            .Visible = False
            End Select
     End With
    Next n
    With clsObjGrid
        .LockUpdate False
        .Refresh
    End With
    If strSuche > "" Then
        ' Suche starten
        clsFrmParent.Painting = True
        With clsObjGrid
            Debug.Print .FindFirst("StrName like '" & strSuche & "%'", True)
        End With
    End If
 
    clsObjGrid.ReadColumnWidth Application.Name, Me.clsFrmParent.Name, _
      strGridName
    clsObjGrid.DoSort "strName,strvorname"
    clsFrmParent.Painting = True
    Set rst = Nothing
    Set cmd = Nothing