自动化错误！！请教一下

<P>Dim pLayer1 As iLayer<BR>Dim pLayer2 As iLayer<BR>Dim rs1 As Raster<BR>Dim pRasLayer1 As IRasterLayer<BR>Dim pRasLayer2 As IRasterLayer<BR>Dim pPath1 As String<BR>Dim pPath2 As String<BR>pPath1 = "E:\yingxiang\turang\trgrid\hdr.adf"<BR>pPath2 = "E:\yingxiang\turang\trgrid2\hdr.adf"<BR>Set pRasLayer1 = New RasterLayer<BR>pRasLayer1.CreateFromFilePath pPath1<BR>Set pRasLayer2 = New RasterLayer<BR>pRasLayer2.CreateFromFilePath pPath2<BR>MsgBox "asdf", vbOKOnly, "asdf"</P>
<P>当运行到 pRasLayer1.CreateFromFilePath pPatth1的时候就提示自动错误，请问这是什么原因啊！哪个高人指点一下</P>

<P>这是一个添加栅格图层的代码</P>

<P>pPath2 = "E:\yingxiang\turang\trgrid2\hdr.adf"原来是hdr.adf要删掉</P>
<P>但是现在运行到最后进行叠加分析的时候出现了 "there is no spatial analyst license currently available"是没有注册吗？</P>