Me.KeyPreview = True
    ' Application-Path
 
   'grid 1 für Preise
    With Me.Grid1
 
        .LockUpdate True
        .Visible = True
 
        .DataMode = Mode_List
 
        .CaptionVisible = True
        .CaptionFont.name = "Arial"
        .CaptionFont.Bold = True
        .CaptionFont.Size = 12
        .CaptionHeight = 32
 
 
        .ColumnHeaderFont.name = "Tahoma"
        .Font.name = "Tahoma"
        .FooterFont.name = "Tahoma"
        .FilterFont.name = "Tahoma"
 
        .ColumnAdd , "Typ"
        .ColumnAdd , "ArtikelSuchname"
        .ColumnAdd , "Preis"
        .ColumnAdd , "EinheitBezeichnung"
 
 
        .ColumnAdd , "LadeortBezeichnung"
        .ColumnAdd , "AbladeortBezeichnung"
        .ColumnAdd , "TranporteurBezeichnung"
        .ColumnAdd , "PreisID"
 
         ' autom. Neuzeichnen aktivieren
        .LockUpdate False
        .Refresh
 
    End With