Ayuda con UPDATE en VB para access

[gallego1]

Hola, soy nuevo en este foro, me llamo Sergio, y hace poco empece a trabajar con Bases de Datos, aqui en la empresa utilizamos access y programamos los formularios con Visual Basic. Os cuento mi problema:
Estoy creando una Base de Datos nueva, va a ser bastante extensa, el caso es que necesito actualizar datos de una tabla cuando se inserta un registro en un subformulario, pero me da un error que dice "La operacion no esta permitida si el objeto esta abierto"
Mi codigo lo tengo asi:
Private Sub Form_AfterInsert()
On Error GoTo PETA
Id_Cli = Me.Id_Cliente
Id_Camp = Me.Id_Campaña
Dim connstr As String
Dim con As New ADODB.Connection
Set con = New ADODB.Connection
con.Mode = adModeReadWrite
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=2008-06-05-BDD-Televenta.mdb;Persist Security Info=False"
con.Open (connstr)

Dim rs As New ADODB.Recordset
con = CurrentProject.Connection
con.Open

connstr = "UPDATE T_Cliente_X_Campaña SET T_Cliente_X_Campaña.Nº_Llamadas = T_Cliente_X_Campaña.Nº_Llamadas + 1"
connstr = connstr & " WHERE (((T_Cliente_X_Campaña.Id_Campaña)=" & Id_Camp & ") AND ((T_Cliente_X_Campaña.Id_Cliente)=" & Id_Cli & "))"
connstr = sql
rs.Open connstr, con, adOpenDynamic, adLockOptimistic

rs.Close
con.Close
Set rs = Nothing
Set con = Nothing

Exit_PETA_Click:
Exit Sub

PETA:
MsgBox Err.Description
Resume Exit_PETA_Click
End Sub


Todo esto esta en un subformulario y lo he puesto en el procedimiento de evento After insert
Si alguien puede ayudarme a hacerlo bien, o decirme donde estoy fallando lo agradeceria.
Un saludo y enorabuena a todos por este foro.