[VB.Net]
Private Sub ConnectToDataTableAndPrepareColumns(ByVal flyGrid As FlyGrid, ByVal dataTable As DataTable)
   flyGrid.BeginInit()
   Try
    Dim i as Integer
    'Add columns
    For i = 0 To dataTable.Columns.Count - 1
      Dim dc As DataColumn = dataTable.Columns(i)
      Dim col As Column = new Column(dc.Caption, dc.ColumnName)
      ' add new column
      flyGrid.Columns.Items.Add(col)
    Next i
    ' connect to a data table
   flyGrid.Rows.DataSource = dataTable
  Finally
    flyGrid.EndInit()
  End Try