Private Sub _btnData_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles _btnData.Click
 
    '  Prepare DataReader.
    Dim strConn As String = "data source=MYMACHINE;initial catalog=Northwind;"
    Dim myConn As New SqlClient.SqlConnection(strConn)
    Dim myCMD As New SqlClient.SqlCommand("SELECT * FROM Employees", myConn)
    myConn.Open()
    Dim myReader As SqlClient.SqlDataReader = myCMD.ExecuteReader()
 
    '  Build the grid structure from the DB schema.
    Dim dt As DataTable = myReader.GetSchemaTable()
    _flex.Cols.Count = 1
    Dim dr As DataRow
    For Each dr In  dt.Rows
        Dim c As C1.Win.C1FlexGrid.Column = _flex.Cols.Add()
        c.Caption =(c.Name <= CStr(dr("ColumnName")))
        c.DataType = CType(dr("DataType"), Type)
    Next dr
 
    '  Populate the grid.
    _flex.Rows.Count = 1
    Dim row As Integer = 1
    Dim cols As Integer = dt.Columns.Count
    Dim v As Object() = CType(Array.CreateInstance(GetType(Object), cols), Object())
    While myReader.Read()
        myReader.GetValues(v)
        _flex.AddItem(v, row + 1, 1)
    End While
 
    '  Cleanup.
    _flex.AutoSizeCols()
    myReader.Close()
    myConn.Close()
End Sub