...
        With Grid1
      ' autom. Neuzeichnen ausschalten
      .LockUpdate True
      .FilterAlign = FILTER_ALIGN_TOP
      .FilterForeColorDisabled = vbGrayText
      .FilterVisible = True
      .AllowFilterEdit = True
      .FilterMoveTAB = True
 
      ' Recordset zuweisen
      .Clear True
      Set .Recordset = oRs
 
     .FooterVisible = True
     .FooterFont.Bold = True
      ShowFooter

      ' Filter einschalten
      .Recordset.Filter = "[" & .Recordset.Fields(nCol - 1).Name & "] " & sOp & _
        " " & sValue
    End If
ShowFooter