Indlæs punkter fra database til wooksheet Graf Office 2010

Hej
Kan i hjælpe mig
Hvorledes skrives der værdier i dataark for graf i word 2010

Jeg har følgende kode

Sub AddChart_Word()
    Dim objShape As InlineShape
    Dim DataSize As String
   
    'Hopper til book mark hvor graf indsættes
    ActiveDocument.Bookmarks("Graf").Range.Select
   
    ' Create a chart and return a Shape object reference.
    ' The Shape object reference contains the chart.
    Set objShape = ActiveDocument.InlineShapes.AddChart(XlChartType.xlLineMarkers)
       
    ' Ensure the Shape object contains a chart. If so,
    ' set the source data for the chart to the range A1:rowCount.
    If objShape.HasChart Then
        DataSize = ("'Ark1'!$A$1:$A$" & RowCount)
        objShape.Chart.SetSourceData Source:=DataSize
        objShape.Chart.HasTitle = False
        'objShape.Chart.DataTable.Select
       
' DET ER HER JEG IKKE KAN FÅ NYE DATA IND I DEN integreret WOOKBOOK

    End If

End Sub