Visual Basic - Ayuda vb6 acces97

Por favor necesito ayuda resulta que tengo un programa que estoy haciendo en vb con acces donde guardo cierta informacion que hay en el formulario resulta que cuando guardo me dice que no hay ningun registro activo ayudenme plis es urgente por favor ojala me pudieran contestar hoy
aqui les mando el programa

Private Sub cmdguardar_Click()

Dim base As Database
Dim Buscar As Recordset

'Set XL = CreateObject("Access.application")
Set base = OpenDatabase("E:\bd1.mdb")
Set Buscar = base.OpenRecordset("fichass")


With Buscar
.MoveFirst
.MoveLast
.MoveFirst
.Update
.MoveNext
.AddNew

.Edit
!Ingreso = combo8(0).Text
!Rut = Text1(0).Text + "-" + Text2.Text
!Tipo = tipoingreso.Text
!FechaRecepcion = Combo1(0).Text + "_" + Combo2(0).Text + "-" + Combo3(0).Text + "-"
!Salida = Combo6.Text + "_" + Combo7.Text + "-" + Combo9.Text + "-"
!Nombre = Combo4.Text

End With
gracias a todos