partir un campo

[cerberus8]

Mira si está correcto porfavor, pero al ejecutarlo me da un error en el primer sql y me marca lo siguiente:
CurrentProject.Connection.Execute sql

Cual puede ser el problema.
Saludos y muchas gracias

Option Compare Database


Sub mcSepararCodigos()
Dim rs As New ADODB.Recordset
Dim sql

rs.Open "select [Codigo]from VentasPeriodoArticuloNoAgrup", CurrentProject.Connection, adOpenDynamic, adLockBatchOptimistic


While Not rs.EOF

'Separar la REFERENCIA ACTUAL en Familia, SubFamilia y Artículo
If (rs.Fields("Codigo") <> "") Then

sql = "UPDATE AGAETE SET Referencia_familia = '" & Mid(rs.Fields("Codigo"), 1, 2) & "' WHERE [Codigo] = '" & rs.Fields("Codigo") & "'"
CurrentProject.Connection.Execute sql

sql = "UPDATE AGAETE SET Referencia_subfamilia = '" & Mid(rs.Fields("Codigo"), 4, 2) & "' WHERE [Codigo] = '" & rs.Fields("Codigo") & "'"
CurrentProject.Connection.Execute sql

sql = "UPDATE AGAETE SET Referencia_articulo = '" & Mid(rs.Fields("Codigo"), 7, 8) & "' WHERE [Codigo] = '" & rs.Fields("Codigo") & "'"
CurrentProject.Connection.Execute sql

End If
Wend
End Sub