Create dataset manually

 Dim ds As DataSet = New DataSet
        ds.Tables.Add("Customer")
        ds.Tables("Customer").Columns.Add("id")
        ds.Tables("Customer").Columns.Add("Name")

        Dim dr As DataRow = ds.Tables("Customer").NewRow()
        dr("id") = "1"
        dr("Name") = "PKM"
        ds.Tables("Customer").Rows.Add(dr)

        GridView1.DataSource = ds.Tables("Customer")
        GridView1.DataBind()