老问题未解决，请教斑竹？？

我有四个区的数据，程序初始化时加载的时A的矢量数据和影像,各项功能正常,但换成B,C,D后,调矢量没问题,而调相应各区的影像老出错,提示一些内存错误信息,不能为write,read搞不懂,而再换成A的数据就没问题,请问时怎么回事???
加载如下：
       Dim dataDir As String
        dataDir = currentpath
       Dim iLayer As New ImageLayer
        iLayer.file = dataDir & "\a.img"  ’A区的影象
        MapDisp.Layers.Add iLayer
       MapDisp.Refresh

我也发现这类问题