Visual Basic - AYUDA VB ACCES

Por favor necesito ayuda tengo un programa que estoy haciendo en vb con acces donde guardo cierta informacion que hay en el formulario 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 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

Te envio tu codigo que lo he modificado a simple vista. ojala que te corra

Private Sub cmdguardar_Click()

Dim base As Database
Dim Buscar As Recordset

Set base = OpenDatabase("E:\bd1.mdb")
Set Buscar = base.OpenRecordset("fichass")

With Buscar
.MoveFirst 'Esta linea no es necesaria
.AddNew
!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
.Update
End With

Cualquier consulta adicional, no dudes en escribirme.
saludos,
Luis

Te envio tu codigo que lo he modificado a simple vista. ojala que te corra

Private Sub cmdguardar_Click()

Dim base As Database
Dim Buscar As Recordset

Set base = OpenDatabase("E:\bd1.mdb")
Set Buscar = base.OpenRecordset("fichass")

With Buscar
.MoveFirst 'Esta linea no es necesaria
.AddNew
!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
.Update
End With

Cualquier consulta adicional, no dudes en escribirme. O si usas el Messenger mejor.
saludos,
Luis