请问如何给多点类型的文件加新点？？

时我是通过mo调用sde里的文件，然后对其进行加新点的操作。我在mousedown事件里是这样写的：
Dim NewPoint As MapObjects2.Point ’定义点对象
Set NewPoint = Map1.ToMapPoint(X, Y) ‘记录鼠标点击事件
Dim geo As MapObjects2.GeoEvent
Set geo = Map1.TrackingLayer.AddEvent(NewPoint, 0)
recs.AddNew
recs.Fields("Shape").Value = NewPoint '添加字段
recs.Update
最后用recs.CommitTransactiont提交。
这样，如果是点文件（sde名字如sde.dbo.point1.shape.points）执行上述代码就可以添加新的点，而如果是多点类型的（sde.dbo.point1.shape.multipoints)则不能添加新的点。这一定是类型不对。我试着把对象定义为Dim NewPoint As MapObjects2.mulitPoint可是mo没有这样的方法。请问如果要给多点类型的文件加新点？上述代码该怎么该？大家帮个忙想个辙