Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim dtinc As DataTable = Me.MyTableTableAdapter.GetDataBy( _
        ComboBox1.SelectedItem)
        Me.MyDataSet.MyTable.Merge(dtinc, True)
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov