xtragridview is not showing the data

See more:

VB

Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars.Helpers
Imports DevExpress.Skins
Imports DevExpress.LookAndFeel
Imports DevExpress.UserSkins
Imports System.Data.Odbc
Imports DevExpress.XtraGrid.Views.Grid

Public Class Form1

Dim con As New OdbcConnection
Dim cmd As New OdbcCommand
Dim reader, reader1 As OdbcDataReader


Private Sub GridSplitContainer1Grid_Click(sender As Object, e As EventArgs) Handles GridSplitContainer1Grid.Click

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
con.ConnectionString = "dsn=test;uid=sa;pwd=SqlServer@2013;database=training"
con.Open()
' Dim adpt As New OdbcDataAdapter("Select memid,ans1,ans2,ans3,ans4,mark from level1", con)
Dim ds As New DataSet()
' adpt.Fill(ds, "Level1")
'' adpt.Fill(dty)
ds.Tables.Add(createtable(20))
GridControl1.DataSource = ds.Tables(0)
GridControl1.DataBindings.ToString()

'GridControl1.RefreshDataSource()
'Dim gv As GridView = TryCast(GridControl1.FocusedView, GridView)
'' reader.Close()
'cmd.CommandText = "Select memid,ans1,ans2,ans3,ans4,mark from level1"
'cmd.Connection = con
'reader = cmd.ExecuteReader()
'Dim i As Integer = 0
'While reader.Read()
' gv.AddNewRow()
' gv.SetRowCellValue(i, "memid", reader(0))
' i = i + 1
'End While


'GridControl1.RefreshDataSource()
End Sub
Private Function createtable(ByVal rowcount As Integer) As DataTable
On Error Resume Next
cmd.CommandText = "Select memid,ans1,ans2,ans3,ans4,mark from level1"
cmd.Connection = con
reader = cmd.ExecuteReader()
Dim dt As New DataTable
''adpt.SelectCommand = cmd




While (reader.Read())
For i As Integer = 0 To rowcount - 1
dt.Rows.Add(i)
dt.Columns.Add(reader(0), GetType(String))
dt.Columns.Add(reader(1), GetType(String))
dt.Columns.Add(reader(2))
dt.Columns.Add(reader(3))
dt.Columns.Add(reader(4))
dt.Columns.Add(reader(5))

Next

End While
Return dt
End Function

Private Sub RepositoryItemTextEdit6_Click(sender As Object, e As EventArgs) Handles RepositoryItemTextEdit6.Click
Dim xtra1 As New XtraForm1
xtra1.Show()
xtra1.BringToFront()
End Sub
End Class



gridview is not showing data