Eror 3705 la operacionno esta permitida si el objeto esta abierto...

[agos_00_15]

y cuando ejecuto este boton me salta ese error:
Private Sub CmdSiguiente_Click()
If TxtDNI.Text <> "" And TxtNombre.Text <> "" And TxtApellido.Text <> "" And TxtDomicilio.Text <> "" And TxtLocalidad.Text <> "" And TxtFechaIngreso.Text <> "" Then
Call conexion
base.Open "SELECT * From pagos", a, adOpenDynamic, adLockOptimistic
If base.BOF And base.EOF Then
base.AddNew
Else
base.MoveLast
base.AddNew
End If
base!NOMBRE_SOCIO = TxtNombre.Text
base!APELLIDO_SOCIO = TxtApellido.Text
base!LOCALIDAD_SOCIO = TxtLocalidad.Text
base!DOMICILIO_SOCIO = TxtDomicilio.Text
base!DNI_SOCIO = TxtDNI.Text
base!FECHA_INGRESO = TxtFechaIngreso.Text

base.Update
Else
MsgBox "Complete todos los datos, faltan datos.", vbOKOnly, "Completar Datos"
End If



CmdCancelar.Enabled = False
Contratos.Show 0
Me.Hide



End Sub