Dim SqlNuevoOrden As String
SqlNuevoOrden = "INSERT INTO MiTabla ( CampoId ) SELECT 13"
DoCmd.RunSQL SqlNuevoOrden