Schema Tabelle SQL

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New SqlConnection( _
"Data Source=60016P05260;Initial Catalog=NORTHWIND;Integrated Security=True")
'"server=(local);database=Northwind;")



Dim cmd As New SqlCommand("SELECT * FROM ORDERS", con)

Try
con.Open()
Dim reader As SqlDataReader = _
cmd.ExecuteReader(CommandBehavior.SchemaOnly)
DataGrid1.SetDataBinding(reader.GetSchemaTable(), "")
reader.Close()
Finally
con.Close()
End Try
End Sub