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

[agos_00_15]

Hola a todos! tengo un problema, a hora de ejecutar el programa me salta el error que la operacion no esta permitida si el objeto esta abierto.

Soy nueva en todo esto y necesito de su ayuda.
En la linea q me salta error es:

Public Sub conexion()
With a
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Ago\Desktop\SISTEMAINTERNET2003.md b;Persist Security Info=False"
End With

[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