Dim lst As List(Of String) lst = Connections("ASQL").GetTableNames For Each nm As String In lst Dim cmd As new SQLCommand cmd.ConnectionName = "ASQL" cmd.CommandText = "select * fr om {" & nm & "}" Dim dt As DataTable = cmd.ExecuteReader For Each dc As DataCol In dt.DataCols Output.Show(" " & dc.Name) Next Next