[求助]Map+VB问题

Private Sub OpenGeoset_Click()

       Dim filepath As Sting,FileName As Sting

       Dim LayerInfo As New MapXLib.LayerInfo,lyr As MapXLib.Layer

       Dim ds As MapXLib.Dataset





       On Error Ressume   Next

        CM1.Dialog Title="打开文件"

         CM1.DefaultExt="gst"

        CM1.Filter="GeoSet(*,gst)|*.gst"

        CM1.Acion=1

       If Err.Number=32755 Then Exit Sub

        ActiveForm.Map1.GeoSet=CM1.FileName





       For Each ds In frmD.Map1.DataSets

             Set lyr =frmD.Map1.Layers(LyrName)

             frmD.Map1.DataSets.Add miDataSetlayer,lyr,ds,Name

       Next

    

        Set ds=Nothing

        Set lyr=Nothing

         Set AciveForm.Map1.NumericCoorlSys=ActiveForm.Map1.DisplayCoordSys





         ChangeCombo





     End Sub



我调试的时候显示ChangeCombo子程序或函数未定义

是怎么回事呢？