2- برای پیدا کردن min/max میشه مستقیم از compute برای datatable هم استفاده کرد:
dim dt as datatable=DataGridView1.datasource.defaultview.tot able
TextBox1.Text=dt.compute("min(date)","")
TextBox2.Text=dt.compute("max(date)","")
و باز هم نیازی به حلقه نیست