Dim dt As New DataTable
        Dim col As New DataColumn("FieldName")
        col.DataType = GetType(String)
        dt.Columns.Add(col)

        Dim row As DataRow = dt.NewRow

        row("FieldName") = m_dsFields.Tables(0).Rows(0).Item("FieldName")  <-----------here I assign value from database

        dt.Rows.Add(row)


        PrepareColumn()
        FlyGrid1.Rows.DataMember = dt.TableName
        FlyGrid1.Rows.DataSource = dt

may be coonected table not filled by adapter?

m_dsFields = GetReportFields(1)

'here m_dsFields.tables(0) contain correct data

PrepareColumn()
FlyGrid1.Rows.DataMember = m_dsFields.Tables(0).TableName
FlyGrid1.Rows.DataSource = m_dsFields

m_dsFields = GetReportFields(1)

'here m_dsFields.tables(0) contain correct data

dim dt as datatable = m_dsfields.tables(0)

PrepareColumn()
FlyGrid1.Rows.DataMember = dt.tablename
FlyGrid1.Rows.DataSource = dt