[VB.NET] اريد كود جلب اخر اسم في قاعدة البيانات عن طريق button4

PHP كود :
Imports System.Data.SqlClient ' يجب استبدالها بمكتبة الاتصال المناسبة إذا كنت تستخدم قاعدة بيانات غير SQL Server

Public Class Form1
    Dim connectionString As String = "YourConnectionStringHere" ' استبدل هذا بسلسلة الاتصال الخاصة بك

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Try
            Dim query As String = "SELECT TOP 1 NameColumn FROM YourTableName ORDER BY IDColumn DESC" ' استبدل YourTableName و NameColumn و IDColumn بالاسماء الصحيحة
            Using connection As New SqlConnection(connectionString)
                Using command As New SqlCommand(query, connection)
                    connection.Open()
                    Dim result As Object = command.ExecuteScalar()
                    If result IsNot Nothing Then
                        MessageBox.Show("أخر اسم في قاعدة البيانات هو: " & result.ToString(), "الاسم")
                    Else
                        MessageBox.Show("لا يوجد أسماء في قاعدة البيانات.", "تنبيه")
                    End If
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show("حدث خطأ: " & ex.Message, "خطأ")
        End Try
    End Sub
End Class