'check before setting the textbox if the datafiels is null:

	Do Until Data1.Recordset.EOF
		if Not isnull(data1.recordset("date")) then _
	 		Text1.text=Data1.recordset("date")
	              Data1.Recordset.Movenext
	Loop