How to fill the datatable without using the database?

[kumardharanik]

i need to fill the datatable(datag ridview) without using the database..
Here is my code.. But i cant able to fill the datatable
[CODE}
Public Sub CreateDatatable ()
dtable = New DataTable("purc hasedetails_tab le")

Dim column As DataColumn


column = New DataColumn()
column.DataType = System.Type.Get Type("System.St ring")
column.ColumnNa me = "SNo"
column.ReadOnly = True
column.Unique = True
dtable.Columns. Add(column)

column = New DataColumn()
column.DataType = System.Type.Get Type("System.St ring")
column.ColumnNa me = "Item_Name"
column.ReadOnly = True
column.Unique = True
dtable.Columns. Add(column)

column = New DataColumn()
column.DataType = System.Type.Get Type("System.St ring")
column.ColumnNa me = "Req_Qty"
column.ReadOnly = True
column.Unique = True
dtable.Columns. Add(column)

column = New DataColumn()
column.DataType = System.Type.Get Type("System.St ring")
column.ColumnNa me = "Req_Date"
column.ReadOnly = True
column.Unique = True
dtable.Columns. Add(column)

dset = New DataSet()
dset.Tables.Add (dtable)


End Sub

Public Sub FillDatatable()
Dim row As DataRow
Dim i As Integer
For i = 0 To DataGridView1.R ows.Count - 1
row = dtable.NewRow()
row("SNo") = i + 1
row("Item_Name" ) = "Item_Name" + i.ToString()
row("Req_Qty") = "Req_Qty" + i.ToString()
row("Req_Rate") = "Req_Date" + i.ToString()
dtable.Rows.Add (row)
Next i
End Sub
[/CODE}