Hola coco_wey,
es un problema de fácil solución: elimina Val al cargar el registro 'Descripcion'
adoPrimaryRS!Descripcion = Me.MSFlexGrid2.TextMatrix(I, 3)
La función Val devuelve los números contenidos en una cadena, y si en la cadena no hay números devuelve 0.