Access - Grabar con código

Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("LaTabla")

    With rst

        .AddNew

            ![Campo1] = Me.Campo1

            ![Campo2] = Me.Campo2

            etc...

            .Update

    End With

    rst.Close