Conflicto

[Jose_minglein2]

Porque al asignarle un .text, si está vacío es "", con lo cual al hacer la asignación lo convierte en un 0.

Para dejarlo a NULL, o no le asignas nada o le asignas null, es decir:

Dim iddesolicitud as object
if CType(e.Item.Cells(2).Controls(0), TextBox).Text = "" then
iddesolicitud = system.dbnull.value
else
iddesolicitud = Val(CType(e.Item.Cells(2).Controls(0), TextBox).Text)
end if