'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