Диаграмма в Excel из Access таблицы

Public Sub Grafik()
Dim objXL As Object
Dim objBook As Object
Dim objSheet As Object
Dim objChart As Object
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim chtCart As Object


Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM AB_Resultat")


'Excel starten
Set objXL = CreateObject("excel.application")
'Datenblat definieren
Set objBook = objXL.Workbooks.Add
Set objSheet = objBook.Worksheets.item(1)
objSheet.Name = "Auswertung"


'Daten ьbertragen
With objSheet.QueryTables.Add(Connection:=rs, Destination:=objSheet.Range("A1"))
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
End With


'Neue Diagramm erstellen
Set objChart = objSheet.ChartObjects.Add(350, 20, 650, 400)


With objChart
    'Name
    .Name = "Analyse"
    'Type
    .Chart.ChartType = 65
    'Daten
    .Chart.SetSourceData Source = objSheet.Range("A1:H10"), PlotBy = xlColumns
    'Achsen
    .Chart.Axes(xlCategory, xlPrimary).HasTitle = True
    .Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.text = "Tagen"
    .Chart.Axes(xlValue, xlPrimary).HasTitle = True
    .Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.text = "Prozente"
End With


'Exceltabelle anzeigen
objXL.Visible = True


End Sub