Access - Posicionar el cursor

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