Sub ExcelImport()
    Dim sExcelFile As String
    Set Conn = New ADODB.Connection
    Conn.CursorLocation = adUseClient
    sExcelFile = "Exceldatei" 
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Extended Properties=Excel 8.0;" & _
        "Data Source=" & sExcelFile & ";"
    strSQL = "SELECT * " & _
                 "INTO Optimierungsdatenbank" & _
                 "IN 'D:\Daten\datenbank.mdb' " & _
                 "FROM [" & sTabelle & "$];"
    Conn.Execute strSQL
    Conn.Close
End Sub