Private Sub sevgrid1_FilterStartEdit(nCol As Long, sFilter As String, _
  FilterImage As Long, Style As sevDataGrid2.sevGridFilterStyle, oComboBox As _
  sevDataGrid2.EditComboBox, DropDown As Boolean)
If nCol = 2 Then
    Style = FILTER_COMBOLIST
    With oComboBox
    .AddItem "(alle)"
     Set .Recordset = db.OpenRecordset("Select  ID, Standort from Tabelle1")
     .ColVisible(1) = False
      .BoundColumn = 1
     .DisplayColumn = 2
    End With
    DropDown = True
End If
End Sub