Dim dr As DataRow
dr = Me.DATABASEDataSet.TABLE1.NewRow
dr(“FIELD1”) = Me.TextBox1.Text
dr(“FIELD2”) = Me.NumericUpDown1.Value
Me.DATABASE.TABLE1.Rows.Add(dr)
Me.TABLE1TableAdapter.Update(Me.DATABASEDataSet.TABLE1)
Me.TABLE1TableAdapter.Fill(Me.DATABASEDataSet.TABLE1)
Dim i As Integer, ID As Integer
Dim dr2 As DataRow()
dr2 = Me.DATABASEDataSet.TABLE1.Select(“”, “IDDESC”)
StudentPK = dr2(0)(“ID”)
For i = 0 To ListBox1.SelectedItems.Count – 1
dr = Me.DATABASEDataSet.TABLE2.NewRow
dr(“ID”) = ID
dr(“FIELD1”) = Me.cbxRoute.SelectedValue
dr(“FIELD2”) = (DirectCast(Me.ListBox1.SelectedItems(i), DataRowView)(0).ToString)
dr(“FIELD3”) = Me.NumericUpDown1.Value
Me.DATABASEDataSet.TABLE2.Rows.Add(dr)
Next
Me.TABLE2TableAdapter.Update(Me.DATABASEDataSet.TABLE2)
Me.TABLE2TableAdapter.Fill(Me.DATABASEDataSet.TABLE2)