New Post: Help needed - in-memory creation of shapefile

Host is Access 2003 with latest MapWinGIS. I can successfully create a point shapefile from an Access table of Lat/Long coordinates. Now trying to populate attributes associated with each point. At the end of the creation loop, I send the shapefile to a disk file to check for success. The attributes are never updated to the values that are set from the Access table. Likewise, checking an individual point in break mode by executing debug.print sf.cellvalue(1,1) shows a null value.

I've tried all combinations of sf.StartEditingTable (and Shapes) and sf.StopEditingTable with no success. I must be missing something...

My code follows. Suggestions appreciated.

Also, there may be an error with the Shapefile.StopEditingTable documentation. The documentation indicates there are three parameters, but IntelliSense only shows two parameters, and VBA does not run with three parameters.

Private Sub cmdCreateShapefile_Click()
Dim sf As New MapWinGIS.Shapefile
Dim newPt As MapWinGIS.Point
Dim newShp As MapWinGIS.Shape
Dim bSuccess As Boolean
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Long
Dim iIDIndex As Integer
Const FILENAME As String = "d:\temp\test.shp"

bSuccess = sf.CreateNewWithShapeID("", SHP_POINT)
sf.EditAddField "ConsolID", INTEGER_FIELD, 0, 10
iIDIndex = sf.Table.FieldIndexByName("ConsolID")

Set db = CurrentDb
Set rs = db.OpenRecordset("qryGPSTableSELECTED", dbOpenDynaset, dbSeeChanges)
i = 0

' sf.StartEditingShapes
' sf.StartEditingTable

With rs
    Do While Not (.EOF)
        Set newPt = New MapWinGIS.Point
        Set newShp = New MapWinGIS.Shape
        newPt.X = !long
        newPt.Y = !Lat
        newShp.Create SHP_POINT
        newShp.InsertPoint newPt, 0
        sf.EditInsertShape newShp, i
        sf.EditCellValue iIDIndex, i, !ConsolidatedID

        .MoveNext
        i = i + 1
    Loop
End With

sf.StopEditingTable True

rs.Close
Set rs = Nothing
Set db = Nothing

sf.Projection = tkMapProjection.PROJECTION_WGS84
Frame0.axmap.TileProvider = tkTileProvider.OpenStreetMap
i = Frame0.axmap.AddLayer(sf, True)

' MsgBox "Index: " & i & vbCrLf & sf.NumShapes

Frame0.axmap.ZoomToLayer (i)

KillShapeFile FILENAME
sf.SaveAs FILENAME

End Sub