文件路径问题

Private Sub Form_Current()
    Dim TempPhotoPath As String
    TempPhotoPath = CurrentProject.PATH & "\" & Me.ID & ".jpg"  
           Me!AAA.Picture = TempPhotoPath        
    End If
End Sub
可以执行，可
Private Sub Form_Current()
    Dim TempPhotoPath As String
    TempPhotoPath = CurrentProject.PATH & "\新建文件夹\" & Me.ID & ".jpg"  
           Me!AAA.Picture = TempPhotoPath        
    End If
End Sub
不执行，这是为什么？