Me retourne une erreur quelqu'un vois la raison ou j'ai rate quelque chose

Le but est prendre la colonne 0 qui contient un Id , le formater en 4 positions 0000 ajouter un trait d'union puis la chaine suivante


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 StrDroplist = Format(cint(DsHardwareTemplate.Tables("TblHardwareTemplate").Columns(0).ToString), "0000")
 
StrDroplist &= " - " & DsHardwareTemplate.Tables("TblHardwareTemplate").Columns(1).ToString()