Dim d = e.Form.Controls("Calendar1").valuee.Form.DropDownBox.Value = d & " " & e.Form.Controls("ComboBox1").text
e.Form.DropDownBox.CloseDropdown