Private Sub Form_Load()
Me.Text1 = Date
End Sub