codice:Function MyData(StartData) as String 'Ho eliminato la dichiarazione del tipo di datp così non egìffetua il cast. If Not IsDBNull(StartData) Then MyData = Format(CDate(StartData), "dd/MM/yyyy") 'Prova così questa riga altrimenti fai come facevi prima.... Else MyData = "NO DATA!" End If End Function