Me.hNameComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.NameDataSet1, "tblName.lName"))
Me.BindingContext(Me.NameDataSet1, "tblName").EndCurrentEdit()
Me.NameDataAdapter1.Update(Me.NameDataSet1, "tblName")
Me.NameDataSet1.AcceptChanges()
Dim oDR As DataRow
oDR = NameDataSet1.Tables("tblName").NewRow()
oDR.BeginEdit()
oDR("IName") = hNameComboBox.Text
oDR.EndEdit()
NameDataSet1.Tables("tblName").Rows.Add(oDR)
Dim datarowCurrent As NameDataSet.tblNameRow
datarowCurrent = NameDataSet1.tblName.NewtblNameRow
datarowCurrent.lName = hNameComboBox.Text
NameDataSet1.tblName.AddtblNameRow(datarowCurrent)
Call saveChangesToDatabase()
Private Sub saveChangesToDatabase()
Dim dsUpdates As DataSet
dsUpdates = NameDataSet1.GetChanges
If Not (dsUpdates Is Nothing) Then
NameDataAdapter1.Update(NameDataSet1)
NameDataSet1.AcceptChanges()
End If
End Sub