[COLOR="Blue"]Public Class[/COLOR] Form1
[COLOR="blue"]Dim [/COLOR]m_dsCustomerOrders [COLOR="blue"]As [/COLOR]DataSet = [COLOR="blue"]Nothing[/COLOR]
----------------------------------------------------------------------
[COLOR="blue"] Private Sub [/COLOR]btnAddNewRecord_Click() [COLOR="blue"]Handles [/COLOR]btnAddNewRecord.Click
[COLOR="blue"]Dim [/COLOR]rowInsertDataRecord [COLOR="blue"]As [/COLOR]DataRow = [COLOR="blue"]Nothing[/COLOR]
[COLOR="teal"]'Create new data row that matches your table structure[/COLOR]
rowInsertDataRecord = m_dsCustomerOrders.Tables("[COLOR="Red"]Orders[/COLOR]").NewRow
[COLOR="teal"] 'Add values to columns in new datarow[/COLOR]
rowInsertDataRecord("[COLOR="red"]OrderQuantity[/COLOR]") = [COLOR="blue"]CInt[/COLOR](TextBox1.Text.Trim)
rowInsertDataRecord("[COLOR="red"]CompanyName[/COLOR]") = TextBox2.Text.Trim
[COLOR="teal"]'Add new row to dataset table Orders[/COLOR]
m_dsCustomerOrders.Tables("[COLOR="red"]Orders[/COLOR]").Rows.Add(rowInsertDataRecord)
rowInsertDataRecord = [COLOR="blue"]Nothing[/COLOR]
[COLOR="blue"]End Sub[/COLOR]
[COLOR="blue"][/COLOR]
---------------------------------------------------------------------
[COLOR="blue"]Private Sub [/COLOR]Form1_Load() [COLOR="blue"]Handles MyBase[/COLOR].Load
[COLOR="blue"]Dim [/COLOR]tblOrders [COLOR="blue"]As [/COLOR]DataTable
[COLOR="blue"]Dim [/COLOR]colOrderId [COLOR="blue"]As [/COLOR]DataColumn
[COLOR="teal"]'Create new dataset, declared at form level[/COLOR]
m_dsCustomerOrders = [COLOR="blue"]New [/COLOR]DataSet("[COLOR="Red"]CustomerOrders[/COLOR]")
[COLOR="teal"]'Create table "Orders"[/COLOR]
tblOrders = m_dsCustomerOrders.Tables.Add("[COLOR="red"]Orders[/COLOR]")
[COLOR="teal"]'Add three columns to Orders Table [/COLOR]
[COLOR="blue"]With [/COLOR]tblOrders.Columns
.Add("[COLOR="red"]OrderID[/COLOR]", Type.GetType("[COLOR="red"]System.Int32[/COLOR]"))
.Add("[COLOR="red"]OrderQuantity[/COLOR]", Type.GetType("[COLOR="red"]System.Int32[/COLOR]"))
.Add("[COLOR="red"]CompanyName[/COLOR]", Type.GetType("[COLOR="red"]System.String[/COLOR]"))
[COLOR="blue"]End With[/COLOR]
[COLOR="teal"]'Set column OrderId properties to be Primary Key and autoincrement[/COLOR]
colOrderId = tblOrders.Columns("[COLOR="red"]OrderId[/COLOR]")
colOrderId.AutoIncrement = [COLOR="blue"]True[/COLOR]
colOrderId.AutoIncrementSeed = 1
colOrderId.AutoIncrementStep = 1
tblOrders.PrimaryKey = [COLOR="blue"]New [/COLOR]DataColumn() {colOrderId}
[COLOR="teal"]'Just for viewing the data in a datagrid [/COLOR]
DataGridView1.DataSource = m_dsCustomerOrders.Tables("[COLOR="red"]Orders[/COLOR]")
[COLOR="teal"]'Clean up[/COLOR]
colOrderId.Dispose()
tblOrders.Dispose()
[COLOR="blue"]End Sub[/COLOR]
[COLOR="blue"]End Class[/COLOR]