xPR = PtblProjectIDComboBox.SelectedValue
    xPR = Convert.ToInt32(xPR)

    For i = 0 To ListBox1.Items.Count - 1     'count to stroll thru company db and check if selected
        If ListBox1.GetSelected(i) = True Then      'if selected then add record project # and selected company#
            xCR = Convert.ToInt32(ListBox1.ValueMember)
            xselected = True
            TableGroupProjectTableAdapter.Insert(xPR, xCR, xselected)     'add the record if it is valid

            'update db
            Validate()
            TableAdapterManager.UpdateAll(CMDB1copy2DataSet)
        End If
    Next i
End Sub