あるデータベースのテーブル名一覧を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