New Post: OgrLayer.SaveChanges saves points with equal coordinates

Hello to everybody.
I'm using Vb.Net.
I edit shapefile, loaded from PostGis, using theese functions:

Dim ds = New OgrDatasource()
...
Dim objects = AxMap1.get_Shapefile(AxMap1.AddLayer(ds.GetLayerByName("objects", True), True))
objects.StartEditingShapes(True)
for 
   objects.EditAddShape(point)
next
objects.Save()
objects.StopEditingShapes(True, True)
mf.AxMap1.get_OgrLayer(1).SaveChanges(count, tkOgrSaveType.ostSaveAll)

There are no errors in OgrLayer.UpdateSourceErrorCount.
As result I give all points in PostGis database with right attributes and wrong geometries, all the points have equal coordinates.

How can I fix this?