[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم
بالنسبة لجلب قيمة اكبر تاريخ لحقل معين
هناك افكار عدة فمثلا يمكنك جلب كل السجلات مسلسلة من التاريخ الاكبر الى الاصغر ثم اختر من السجلات السجل الاول والحقل الذي يحمل التاريخ
وكذلك اختيار السجل الاول لكل الحقول order by  حقل التاريخ تنازليا

كود :

da = New SqlDataAdapter("Select TOP 1 * From Items order by itm_date Desc ", Cn)

او استعلم ب Max عن اكبر قيمة لحقل التاريخ باسم معين

كود :

da = New SqlDataAdapter("Select  Max(itm_date) as MyDate  From Items  ", Cn)

الكود كامل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Try
           Dim da As New SqlDataAdapter
           Dim dt As New DataTable
           dt.Rows.Clear()
           ' جلب السجل بالكامل
           'da = New SqlDataAdapter("Select TOP 1 * From Items order by itm_date Desc ", Cn)

           '' جلب عمود التاريخ  فقط
           da = New SqlDataAdapter("Select  Max(itm_date) as MyDate  From Items  ", Cn)

           da.Fill(dt)
           Dgv.DataSource = dt
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Alert", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       End Try
   End Sub