主题：复选框选中后怎么找出最早的日期

Dim dr1 As DataRow
For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    dr1 = Tables("窗口1_Table1").DataTable.Find(""#","日期")
    If dr1 IsNot Nothing Then '如果找到的话
       e.Form.Controls("DateTimePicker1").Value = dr1("日期")
    End If
Next

想找出窗口中的Table复选框已勾选最早的日期,并将值填到日期控件中,代码该怎么写?