SqLtXt = "SELECT Entry.Date, Entry.Subject, Entry.Entry"
SqLtXt = SqLtXt + " From Entry"
SqLtXt = SqLtXt + " WHERE Entry.Date = " & "'" & dtpDate.Value & "'"

Set MySearch = MyDatabase.OpenRecordset(SqLtXt)
if not mysearch.bof and not mysearch.eof then

txtSubject.Text = MySearch!Subject & ""
txtEntry.Text = MySearch!Entry
else
endif