Sub Form_Load()
 
    Dim cmd As New ADODB.Command
    Dim ansprechpartner As New ADODB.Recordset
 
    Dim parameter As ADODB.parameter
 
    'Parameter vorbereiten
    cmd.Parameters.Append cmd.CreateParameter("Kundennummer", adInteger, _
      adParamInput, , Me.edtKundennummer)
 
    'Kommando vorbereiten
    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "spAnsprechpartnerVonKunde"
    cmd.CommandType = adCmdStoredProc
 
    'Recordset mit dem Ergebnis öffnen
    ansprechpartner.Open cmd, , , adLockOptimistic
 
    Me.KeyPreview = True
 
    ' Application-Path
    'sAppPath = Left$(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))
 
    With gridAnsprechpartner
        'autom. Neuzeichnen ausschalten
        .LockUpdate True
 
        'Icon-Liste (eMail-Symbol)
        .Icons.Add LoadPicture("C:\Dokumente und Einstellungen\dng" & _
          "IT\Desktop\Kirchhoffs\icons\mail.ico")
        .Icons.Add LoadPicture("C:\Dokumente und Einstellungen\dng" & _
        "IT\Desktop\Kirchhoffs\icons\filter.ico")
 
        'Recordset-Kopie erstellen
        .CreateClone = True
 
        'Recordset zuweisen
        .Clear True
        Set .Recordset = ansprechpartner
 
        'Tabelleneigenschaften festlegen
        .AllowDelete = True
        .AllowEdit = True
        .AutoUpdate = True
 
        'Spalten-Eigenschaften festlegen
        .ColumnHeaderFont.Name = "Tahoma"
        .Columns(5).ColType = TYPE_EMAIL Or TYPE_IMAGE
 
        'Spalten-Breiten festlegen
        .Columns(1).Width = 0               'Kundennummer, wird nicht angezeigt
        .Columns(2).Width = 3500            'Name
        .Columns(3).Width = 1800            'Telefon
        .Columns(4).Width = 1800            'Telefax
        .Columns(5).AdjustWidthToGridSize   'eMail-Adresse
 
        'autom. Sortierung aktivieren
        .AutoSort = True
 
        'nach Feld "Name" sortieren
        .DoSort "Name"
 
        'Filterzeile anzeigen
        .FilterAlign = FILTER_ALIGN_TOP
        .FilterForeColorDisabled = vbGrayText
        .FilterVisible = True
        .AllowFilterEdit = True
        .FilterMoveTAB = False
 
        'Erste Zeile selektieren
        .Row = 1
 
        .LockUpdate False
        .Refresh
 
        'Gespeicherte Prozedur schließen und Objekt zerstören
        ansprechpartner.Close
        Set ansprechpartner = Nothing
 
    End With
end sub