Run-Time error '-2147352567 (80020009)': Cannot move the items

Hi,

           Can you help me with this error?

ExitSub:
   Exit Sub
ErrHandler:
Dim s As String
s = Err.Description
   If vSQL.State = 1 Then
      vSQL.Close
   End If   pMailItem.Move vCCDAutoReplyErrFolder       --- the error pointing on this
   Resume ExitSub

End Sub

Please help.

Regards,

Jerzon