Import Mails From Outlook Via VBA

I use the following code to get all my mails into a table:

Code:
Option Compare
DatabaseOption Explicit
Private Sub Befehl17_Click()
' ##################### OutlookImport ##################################
Dim db As DAO.Database
Dim rs As DAO.Recordset

[Code] .....

I check all the mails in the "import-folder", import the content into the database and after that I move the mails into the "imported-folder".

Actually it works, but there are a lot of mails generate an error. I can handle that with the "On Error Resume Next" but so I lost many mails to move and I want to know why the error happens.

The protocol shows me the following error message: "Syntax error (missing Operator)" and Err.Description shows me the content of the mail.