Visual Basic - problemas con la consulta

hola a todos
tengo un problema que no puedo solucionarlo . tengo un programita en vb 6.0 con una base de datos en acces ....
y my consulta es porque cuando me guarda el recorset me borra el que estaba ...por ej. quiero grabar los siguientes datos..
fecha turno aceite
y me graba el ultimo registro y me borra los anteriores y no me deja
grabar una misma fecha con distinto turno . o viceversa.
aqui le muestro el codigo de guardar

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 = Text37.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
cualquier cosa al que este interesado le mando el programa para que lo vea...y aqui esta el codigo de la consulta
Text1.Text = "select " & _
"fecha_de_vta,turno,aceite1_supera,aceite2_2500,aceite3_5000,aceite4_supera,aceite5_2500,aceite6_5000,total_aceites " & _
"from aceites order by fecha_de_vta desc"

¿Un form con 78 TextBox. No sabes que existen los arrays de controles? Te ahorrarías la mitad del código y sería mas legible