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)","")


و باز هم نیازی به حلقه نیست