Sub Import_Excel_DAO()
    Dim strDatei_Excel As String    'Quelldatei Excel
    Dim strTab_Excel As String      'Tabellenblatt Excel
    Dim strDatei_Access As String   'Zieldatei Access
    Dim strTab_Access As String     'Tabellenname Access
    Dim strSQL1 As String           '=Tabellenerstellungsabfrage
    Dim strSQL2 As String           '=Anfügeabfrage
    Dim DB1 As DAO.Database         'Verweis auf Microsoft DAO 3.6 Object 
    ' Library setzen
    strDatei_Excel = "D:\ADO_DAO\ExcelDatei.xls"
    strTab_Excel = "Tabelle1"
    strDatei_Access = "D:\ADO_DAO\SicherungExcel.mdb"
    strTab_Access = "Sich_Tabelle1"
    Set DB1 = OpenDatabase(strDatei_Excel, False, False, "Excel 8.0;")
    strSQL1 = "SELECT * " & _
              "INTO " & strTab_Access & " IN '" & strDatei_Access & "' " & _
              "FROM [" & strTab_Excel & "$];"
    strSQL2 = "INSERT INTO " & strTab_Access & " IN '" & strDatei_Access & "' " _
      & _
              "SELECT * " & _
              "FROM [" & strTab_Excel & "$];"
    'DB1.Execute strSQL1
    DB1.Execute strSQL2
    DB1.Close
    Set DB1=Nothing
End Sub