Dim conn As SqlConnection = New SqlConnection("Data" & _
          "Source=METROID\MSDE2K;Integrated Security=SSPI;Initial" & _
          "Catalog=northwind")
 
        Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM" & _
          "INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE' AND " & _
          "TABLE_NAME <> 'dtproperties' ORDER BY TABLE_NAME", conn)
 
        Dim st As New DataTable
        da.Fill(st)
 
        DataGrid1.DataSource = st