[سعود]

وممكن بواسطة
 select Last(age) from tb

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Button1.Enabled = False
       Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
           Using cm As New OleDb.OleDbCommand("insert into tb(tname) values(@tname)", con)
               cm.Parameters.AddWithValue("@tname", TextBox1.Text)
               If con.State = ConnectionState.Closed Then con.Open()
               cm.ExecuteNonQuery()
               If con.State = ConnectionState.Open Then con.Close()
           End Using
       End Using
       TextBox1.Clear()
       Button2.Select()
       Button1.Enabled = True
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Button2.Enabled = False
       Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
           Using cm As New OleDb.OleDbCommand("select last(tname) from tb", con)
               If con.State = ConnectionState.Closed Then con.Open()
               ToGet.Text = cm.ExecuteScalar.ToString
               If con.State = ConnectionState.Open Then con.Close()
           End Using
       End Using
       Button2.Enabled = True
   End Sub
End Class