Access - Ayuda por favor?

Hola a todos ajala alguien pudiera ayudarme, les explico
Tengo el siguiente codigo lo que me hace este codigo es pedirme unos productos cada 1 de cada mes, y desplegar un total de registros segun los dias si son 5 dias me despliega 5 registros pero lo que yo deseo es que despues de haber pedido esos datos me posicione en el primer registro para seguir capturando otros datos osea en el dia numero 1 por que aparte existen mas campos para capturar
Espero me haya explicado.
Gracias

Dim dia As Integer
Dim prod As Long
Dim tot As Long
Dim i As Integer
Dim rs As Recordset
Dim rsinforme As Recordset
If Format(Now, "dd") = "1" Then
dia = InputBox("Dame los dias del mes")
prod = InputBox("Total de productos por mes")
tot = prod / dia
Set rsinforme = CurrentDb.OpenRecordset("conte", dbOpenDynaset)
For i = 1 To dia
With rsinforme
.AddNew
.Fields("dias") = i
.Fields("area") = area.Value
.Fields("pieza_meta_diaria") = tot
.Update
End With
Next
rsinforme.Close
MsgBox "Las Piezas Meta Diarias han sido registradas correctamente"

End If

Para lograr que te posiciones en el primer registro después de ingresar los datos en tu código, puedes utilizar el método `MoveFirst` del objeto `Recordset` una vez que hayas terminado de agregar los registros.

Aquí tienes una versión modificada de tu código con esa implementación:


Después de realizar el bucle `For` y cerrar el objeto `Recordset` (`rsinforme.Close`), se utiliza el método `MoveFirst` para mover el cursor al primer registro de la tabla.

De esta manera, cuando termines de ingresar los datos, estarás posicionado en el primer registro y podrás continuar con la captura de otros datos en ese formulario.

Espero que esto resuelva tu problema. ¡Buena suerte!