Actualizar subformulario con datos de cuadro lista

Hola buen dia!

Tengo un formulario con un cuadro lista(4 columnas) y un subformulario, deseo pasar los valores de cuatro columnas del cuadro lista pasarlo al subformulario la cual tiene vista predeterminada hoja de datos y eh creado el siguiente codigo:

Private Sub listdetallecont_Click()

Dim Contador As Integer
Dim CadenaSql As String, CadenaParcial As String
CadenaSql = "INSERT INTO tblremesa_reng (mes_periodo, fecha_reg, ct,monto) " _
& "VALUES ( "

For Contador = 0 To listdetallecont.ColumnCount - 1

CadenaParcial = CadenaParcial _
& " '" & listdetallecont.Column(Contador, listdetallecont.ItemsSelected) & "',"

Next
CadenaSql = CadenaSql & Mid(CadenaParcial, 2, Len(CadenaParcial) - 2) & ");"
CurrentDb.Execute CadenaSql
End Sub

El codigo se ejecuta y rellena la tabla pero no actualiza el campo id de la tabla detalle, esta accion no permite se actualice subformulario con el id del formulario principal.

Gracias de ante mano a los expertos por la ayuda que puedan brindar!!!