Sub program1472()

    Dim acc As Object

    Set acc = CreateObject("Access.Application")

    acc.OpenCurrentDatabase ThisWorkbook.Path & "\DB.accdb"

    acc.DoCmd.TransferSpreadsheet _

            TransferType:=0, _

            SpreadSheetType:=acSpreadsheetTypeExcel12Xml, _

            TableName:="program1472", _

            Filename:=Application.ActiveWorkbook.FullName, _

            HasFieldNames:=True, _

            Range:="tem$A1:B10"

    acc.CloseCurrentDatabase

    acc.Quit

    Set acc = Nothing

End Sub