Crear consecutivo carnet

[eperedo]

El Id del usuario lo traes de la base de datos:
Un simple Select IdUsuario From Tabla_Usuario Where IdUsuario = @Usuario
El correlativo puede ser con un max, supongo que tienes una tabla carnet, sería algo así:
Select Max(IdCarnet) From Tabla_Carnet
Teniendo estos dos ya es cuestión de concatenar nada más:

Código vb.net:

Dim carne As New StringBuilder()
        carne.Append("IdUsuario") 'Reemplazar por el id que devuelva la BD.
        carne.Append(Date.Now.ToShortDateString.Replace("/", "")) 'Elimina barras
        carne.Append("001") 'Reemplazar por lo que devuelva la consulta con el Max
        MessageBox.Show(carne.ToString())
 

Espero te de una idea