[سؤال] جلب أقل رقم في الخليه - نسخة قابلة للطباعة

PHP كود :
Public Class Form1
    Dim ax, ay As Integer, dr As Boolean
    Dim apath As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
    Dim db As String = apath & "\db.accdb"
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & db
    Dim con As New OleDb.OleDbConnection(str)
    Dim da As New OleDb.OleDbDataAdapter("select * from tb", con)
    Dim cm As New OleDb.OleDbCommandBuilder(da)
    Dim dt As New DataTable
    Private Sub rep()
        If Top >= Screen.PrimaryScreen.Bounds.Bottom Or Bottom <= 0 Then Top = 0
        If Left >= Screen.PrimaryScreen.Bounds.Right Or Right <= 0 Then Left = 0
    End Sub
    Private Sub gd(Optional ByVal pos As Integer = 0)
        dt.Clear()
        da.Fill(dt)
        dgv.DataSource = Nothing
        dgv.DataSource = dt
        dgv.Columns(0).HeaderText = "الرقم"
        dgv.Columns(1).HeaderText = "الاسم"
        dgv.Columns(0).Width = 222
        dgv.Columns(1).Width = 222
        BindingContext(dt).Position = pos
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.mloc
        rep()
        gd()
    End Sub

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label2.MouseDown, Label1.MouseDown
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Left
            ay = MousePosition.Y - Top
        End If
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove, Label2.MouseMove, Label1.MouseMove
        If dr Then
            Left = MousePosition.X - ax
            Top = MousePosition.Y - ay
        End If
    End Sub

    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp, Label2.MouseUp, Label1.MouseUp
        dr = False
    End Sub

    Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
        Dim row As DataRow = dt.NewRow
        row(1) = txtname.Text
        dt.Rows.Add(row)
        da.Update(dt)
        Dim p As Integer = BindingContext(dt).Position
        gd(p + 1)
    End Sub

    Private Sub btngetmaxvalue_Click(sender As Object, e As EventArgs) Handles btngetmaxvalue.Click
        If dgv.Rows.Count = 0 Then Exit Sub
        Dim count As Integer
        count = BindingContext(dt).Count
        Dim v As Integer
        v = dt.Rows(count - 1).Item(0).ToString
        lbltb.Text = v

        count = dgv.Rows.Count
        v = dgv.Rows(count - 1).Cells(0).Value
        lbldg.Text = v

    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub

    Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
        Hide()
        Close()
    End Sub
End Class