Visual Basic - graba 1 solo

tengo una base de datos que se llama gnc22 con tres tablas las cuales estan mas abajo.pregunto??esta bien un recorset para cada tabla ????
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset

Set db = OpenDatabase(App.Path & "\gnc22.mdb")
Set rs = db.OpenRecordset("estado")
Set rs1 = db.OpenRecordset("aceites")
Set rs2 = db.OpenRecordset("medidores")

y mi otra duda que tengo es que me graba los datos del dia 26/02/06 y cuando intento grabar otro dia 27/02/06 me borra el 26/02/06 y me queda el 27/02/06 en la tabla por que ???? algo estoy haciendo mal ???

este es el codigo del boton guardar .

como puedo cambiar desde afuera el precio nada mas por ej tengo
text1.text=text2.text * (0.869)
lo que nesecito es cambiar el 0.869 pero desde afuera o me combiene
agregar precio a la tabla de acces .
Private Sub Command1_Click()

If rs.BOF And rs.EOF And rs1.BOF And rs1.EOF And rs2.BOF And rs2.EOF Then
rs.AddNew
rs1.AddNew
rs2.AddNew
Else
rs.Edit
rs1.Edit
rs2.Edit
End If
rs!encargado = Text1.Text
rs!playeros = Text2.Text
rs!fecha_de_vta = Text47.Text
rs!turno = Combo1.Text
rs!hielo = Text35.Text
rs!ptz = Text43.Text
rs!arranques = Text45.Text
rs!totalgeneral = Text76.Text
rs!recaudado = Val(Text77.Text)
rs!diferencia = Text78.Text
rs.Update
rs2!fecha_de_vta = Text47.Text
rs2!turno = Combo1.Text
rs2!medidor1 = Text11.Text
rs2!medidor2 = Text12.Text
rs2!medidor3 = Text13.Text
rs2!medidor4 = Text14.Text
rs2!medidor5 = Text15.Text
rs2!medidor6 = Text16.Text
rs2!medidor7 = Text17.Text
rs2!medidor8 = Text18.Text
rs2!total = Text73.Text
rs2.Update
rs1!fecha_de_vta = Text47.Text
rs1!turno = Combo1.Text
rs1!aceite1_supera = Text48.Text
rs1!aceite2_2500 = Text49.Text
rs1!aceite3_5000 = Text50.Text
rs1!aceite4_supera = Text51.Text
rs1!aceite5_2500 = Text52.Text
rs1!aceite6_5000 = Text53.Text
rs1!total_aceites = Text72.Text
rs1.Update
Text3.Text = Text11.Text
Text11.Text = ""
Text19.Text = ""
Text27.Text = ""
Text4.Text = Text12.Text
Text12.Text = ""
Text20.Text = ""
Text28.Text = ""
Text5.Text = Text13.Text
Text13.Text = ""
Text21.Text = ""
Text29.Text = ""
Text6.Text = Text14.Text
Text14.Text = ""
Text22.Text = ""
Text30.Text = ""
Text7.Text = Text15.Text
Text15.Text = ""
Text23.Text = ""
Text31.Text = ""
Text8.Text = Text16.Text
Text16.Text = ""
Text24.Text = ""
Text32.Text = ""
Text9.Text = Text17.Text
Text17.Text = ""
Text25.Text = ""
Text33.Text = ""
Text10.Text = Text18.Text
Text18.Text = ""
Text26.Text = ""
Text34.Text = ""
Text73.Text = ""
Text74.Text = ""
Text48.Text = Text54.Text
Text54.Text = ""
Text60.Text = ""
Text66.Text = ""
Text49.Text = Text55.Text
Text55.Text = ""
Text61.Text = ""
Text67.Text = ""
Text50.Text = Text56.Text
Text56.Text = ""
Text62.Text = ""
Text68.Text = ""
Text51.Text = Text57.Text
Text57.Text = ""
Text63.Text = ""
Text69.Text = ""
Text52.Text = Text58.Text
Text58.Text = ""
Text64.Text = ""
Text70.Text = ""
Text53.Text = Text59.Text
Text59.Text = ""
Text65.Text = ""
Text71.Text = ""
Text72.Text = ""
Text75.Text = ""
Text35.Text = Text37.Text
Text37.Text = ""
Text39.Text = ""
Text41.Text = ""
Text43.Text = Text44.Text
Text44.Text = ""
Text45.Text = Text46.Text
Text46.Text = ""
Text76.Text = ""
Text77.Text = ""
Text78.Text = ""
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus



end sub