سلام،
از کد زیر استفاده کن. بعد از اینکه Focous از کمبو تغییر داده شده خارج بشه رکوردست آپدیت میشه و دیتای جدید جایگزین میشه
Private Sub fg_CellChanged(ByVal Row As Long, ByVal Col As Long)

    If Row > 0 Then

        Rs.AbsolutePosition = Row

        Rs.Fields(Col) = fg.TextMatrix(Row, Col)

        Rs.Update

    End If

End Sub


موفق باشی