Pssss... no me habia fijado que delante del proximo_codigo estaba el "AS" ... Sorry... pero aun asi me sigue mostrando el error cuando hago la asignacion al Txt1
Código:
Sub IncrementarIdDepartamento(Rs As ADODB.Recordset, Txt1 As Object)
Set Rs = Conexion.Execute("SELECT CONCAT('DPTO-',(MAX(CAST(SUBSTRING(`tabla_departamento`.`id_departamento`,6) AS UNSIGNED))+1)) FROM `tabla_departamento` WHERE `tabla_departamento`.`id_departamento` LIKE 'DPTO-%'")
Txt1.Text = Rs!id_departamento 'aca se detiene
End Sub