Error ODBC Fallo la llamada en rs.Update

[Lba]

Estimados

Tengo este código y me da error "3146 en tiempo de ejecución, ODBC fallo la llamada" en la instrucción rs.update

Uso Access 2007 y vba.

Código vb:

Sq = "Select * FROM Traspaso_XClasif;"
Set rs = db.OpenRecordset(Sq)
 
Do While Not rs.EOF
        ID = rs!PRO_ID
            
        Set db = CurrentDb
        'If (rs!PRO_TT = "S") And (rs!PRO_MAQUINA = 2 Or rs!PRO_MAQUINA = 3) And (rs!PRO_TIPO = 1) Then
            Sq2 = "Select SP_PRODUCCION_DR.* FROM SP_PRODUCCION_DR WHERE SP_PRODUCCION_DR.PRO_ID =" & ID & _
            " AND (SP_PRODUCCION_DR.PRO_MAQUINA=2 OR SP_PRODUCCION_DR.PRO_MAQUINA=3) AND SP_PRODUCCION_DR.PRO_TIPO=1;"
            Set rs2 = db.OpenRecordset(Sq2)
            
            If Not rs2.EOF Then
                rs2.Edit
                rs2("PRO_TIPO") = 9
                rs2("PRO_MAQUINA") = 1
                rs2.Update
            End If
            rs2.Close
        'End If
        rs.MoveNext
Loop
rs.Close
db.Close
 

Revise los campos y están bien, la primera tabla "Traspaso_XClasif" es local, la segunda SP_PRODUCCION_DR esta en una base de datos SQL los accesos están bien.

Atte.
Lba