あるデータベースのテーブル名一覧をList<String>で返す関数を作りました。
一応、目的通りに動いているのですが、なんとなく？もっと、効率のいい方法があるような気がしていますが、まったく思いつきません。
ベテランの方のアドバイスを頂ければ幸いに存じます。
宜しくお願い致します。

Private Function GetTableNames(con As SqlConnection) As List(Of String)
     Dim dtTableNames As New DataTable
Dim Da As New SqlDataAdapter
     Dim SqlGetTableNames As String = "select name from sys.tables;"
     Dim cmd As New SqlCommand(SqlGetTableNames, con)
     Da.SelectCommand = cmd
     Da.Fill(dtTableNames)
     Dim query = From order In dtTableNames.AsEnumerable
                 Select order.Field(Of String)("name")
     Dim tableNameList As List(Of String) = query.AsEnumerable.ToList
     Return tableNameList
 End Function

いつもお世話になっております。

VB.NETでBluetoothデバイスの電池残量を取得する方法を探しているのですが、
情報が見つからず・・・。
なにかサンプルコード等ありますか？

指定のワイヤレスイヤホンの電池残量を、タスクトレイへ数値表示したいです。

Windowsの設定画面には電池残量表示されるんですが、深い階層にあり毎回見る
のが大変で。

よろしくお願いします

環境　　：Windows11 Pro 64bit
使用言語：VB.NET（Visual Studio 2022）