Initialize then in the form load...

vb Code:
  1. Private Sub Form_Load()
  2.     With Me.pump
  3.         .AddItem "P1--01"
  4.         .AddItem "P3--03"
  5.         .AddItem "P4--04"
  6.         .AddItem "P5--05"
  7.     End With
  8.     
  9.     DTP1_date.Value = ??? '<~~ Set Default Values Here
  10.     DTP1_hour.Value = ??? '<~~ Set Default Values Here
  11.     DTP2_date.Value = ??? '<~~ Set Default Values Here
  12.     DTP2_hour.Value = ??? '<~~ Set Default Values Here
  13.     
  14.     Me.DataGrid.Visible = True
  15. End Sub

Also what is createDummyBase sub() ?