Dim GRstr As String = "tbl_Test"
 
        Dim str As String
        Dim File As String
 
        File = ("c:\testxls")
 
 
        Dim xlApp As Excel.Application
        Dim xlWks As Excel.Workbook
        Dim ws As Excel.Worksheet
 
        xlApp = CreateObject("excel.application")
        xlApp.Visible = False
        xlWks = xlApp.Workbooks.Open(File)
 
 
        xlApp.Range("A1").Value = "Datum"
        xlApp.Range("B1").Value = "Strategy"
        xlApp.Range("C1").Value = "Counterparty"
 
 
 
        '****************************************************
        'Daten nach Access importierenr
 
        DoCmd.TransferSpreadsheet(AcDataTransferType.acImport,         _
          AcSpreadSheetType.acSpreadsheetTypeExcel9, GRstr, _
        File, True, "A1:C8800")
 
        xlApp.DisplayAlerts = False
        xlApp.ActiveWorkbook.Close(SaveChanges:=False)
        xlApp.DisplayAlerts = True
        xlApp.Quit()
        ws = Nothing
        xlWks = Nothing
        xlApp = Nothing