codice:
Function Scrividata(data as string) 
		If data.Length >10 then 
			return data.Substring(0, 9)
		else 
			data=""
			return data
		end if 
End Function
questa funzione in teoria dovrebbe scrivere solo gg-mm-aaaa troncando hh-mm-ss....
ma in realtà mi restituisce solo "Cast non valido dal tipo 'DBNull' al tipo 'String'"....