با سلام
در کدهای زیر که برای اسکن مدارک گذاشتم
Private Sub btnScan_Click()

    Dim FileLocation As String

    Dim Dpath, x As String

    Dim fso

    

    Set fso = CreateObject("Scripting.FileSystemObject")

     

    Dpath = CurrentProject.path & "\pic"

    x = "Y" & Left(Forms!sanad1!tarikh_sand, 4) & "S" & Forms!sanad1!radif_sand & "F" & Forms!info!radif_factor & ".jpg"

    

    

    FileLocation = Dpath & "\" & x

        If Dir(FileLocation) <> vbNullString Then  'ÈÑÑÓí ÚÏã æÌæÏ ÝÇíá ÈÑÇí ÌáæíÑí ÇÒ ÇÑæÑ ÇÓ˜ä

                

            fso.deletefile FileLocation

        End If

    

    Dim scanDiag As New WIA.CommonDialog

    Dim Image As WIA.ImageFile

        

    Set Image = scanDiag.ShowAcquireImage()

    Image.SaveFile FileLocation

        

    masire_asli = FileLocation

    imgFactor.Picture = FileLocation



End Sub

این خطا رو میده در حالیکه هیچ اسکنی از قبل از طریق برنامه دیگه در جریان نمی باشد
Untitled4.png