With MSChart1
    ' alle
    .Column = 1
    .Data = FormatNumber(DB.OpenRecordset("Figuren").RecordCount, 0)
    ' vorhanden
    .Column = 2
    .Data = FormatNumber(DB.OpenRecordset("Figuren").RecordCount - _
      DB.OpenRecordset("SELECT * FROM Figuren WHERE Status ='3'").RecordCount, _
      0)
    ' doppelt
    .Column = 3
    .Data = FormatNumber(DB.OpenRecordset("SELECT * FROM Figuren WHERE Status" & _
      "='2'").RecordCount, 0)
    ' gesucht
    .Column = 4
    .Data = FormatNumber(DB.OpenRecordset("SELECT * FROM Figuren WHERE Status" & _
      "='3'").RecordCount, 0)
End With