[سعود]

بالنسبة لسؤال الاستعلام

كود :

Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)
    Dim sql As String = "select * from tb order by tmax desc"
    Dim ds As New DataSet


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        gd()
    End Sub
    Private Sub gd()
        Dim da As New OleDbDataAdapter(sql, con)
        ds.Clear()
        d.DataSource = Nothing


        da.Fill(ds, "tb")
        d.DataSource = ds
        d.DataMember = "tb"
        d.Columns(0).Visible = False

    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MsgBox(ds.Tables("tb").Rows(1).Item("tn"))
    End Sub
End Class

المثال مرفق بخصوص جلب ثاني رقم