Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Button1.Click
 
        Dim xSchema As DataTable = GetTablesSchema(New SqlClient.SqlConnection( _
          gsSqlConnection), "Artikel", Me.ComboBox1.SelectedItem)
 
        Dim dt As New DataTable
        Dim dc As New DataColumn
        Dim dr As DataRow
 
        dc = New DataColumn
        dc.ColumnName = "Property"
        dt.Columns.Add(dc)
 
        For Each xdc As DataColumn In xSchema.Columns
            dr = dt.NewRow
            dr("Property") = xdc.ColumnName
            dt.Rows.Add(dr)
        Next
 
        dt.AcceptChanges()
 
        Me.DataGridView1.DataSource = dt 'xSchema
 
    End Sub
 Public Function GetTablesSchema(ByVal conn As _
   System.Data.SqlClient.SqlConnection, ByVal tblName As String, ByVal coll As _
   String) As DataTable
        Dim schemaTable As DataTable
        Dim restrictions(3) As String
        restrictions(1) = "dbo"
        restrictions(2) = tblName
 
        With conn
            If .State = ConnectionState.Closed Then .Open()
            If Not coll Is Nothing Then
                schemaTable = _
                    .GetSchema(coll)
            Else
                schemaTable = _
                    .GetSchema()
            End If
 
            .Close()
        End With
        Return schemaTable
 
    End Function