Adding a record to two tables. Table 1 (Position) Table 2 (PositionCompany)

Public Class PositionForm

    Public PositionString As String = ""

 'UNBOUND DATA ENTRY. For each TextBox entry, add entry to MAINFORM and corresponding BINDINGSOURCE with DATABINDING
    Private Sub PositionForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'JobHuntingDataSet.Company' table. You can move, or remove it, as needed.
        positionLabel.Visible = False
        positionLabel.Text = "Please enter a Position Title"
        If Not blnPosBound Then
            PositionIDTextBox.DataBindings.Add("Text", JobHuntingForm.PositionBindingSource, "positionID")
            TitleTextBox.DataBindings.Add("Text", JobHuntingForm.PositionBindingSource, "Title")
            SalaryTextBox.DataBindings.Add("Text", JobHuntingForm.PositionBindingSource, "Salary")
            Part_FullComboBox.DataBindings.Add("Text", JobHuntingForm.PositionBindingSource, "Part_Full_Time")
            Hours_ShiftTextBox.DataBindings.Add("Text", JobHuntingForm.PositionBindingSource, "Hours_Shift")
            DepartmentTextBox.DataBindings.Add("Text", JobHuntingForm.PositionBindingSource, "Department")
            Notes_MemoTextBox.DataBindings.Add("Text", JobHuntingForm.PositionBindingSource, "Notes_Memo")
            PositionIDTextBox.DataBindings.Add("text", JobHuntingForm.PositionCompanyBindingSource, "positionID")
            companyComboBox.DataBindings.Add("Text", JobHuntingForm.PositionCompanyBindingSource, "CompanyID")
            ivDateTimePicker.DataBindings.Add("Text", JobHuntingForm.PositionCompanyBindingSource, "InterviewDate")

            companyComboBox.DataSource = JobHuntingForm.JobHuntingDataSet.Company
            companyComboBox.DisplayMember = "Name"
            companyComboBox.ValueMember = "CompanyID"
            blnPosBound = True
        End If
    End Sub

 Private Sub PositionForm_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        If Me.Tag.Equals("Add") Then
            PositionIDTextBox.ReadOnly = True
            TitleTextBox.Select()
            companyComboBox.Text = "Choose a Company"
            Me.Text = "Add New Position Information"
            SaveButton.Text = "Save New Position"
            posCancelButton.Text = "Cancel New Position"
            JobHuntingForm.PositionBindingSource.AddNew()
            JobHuntingForm.PositionCompanyBindingSource.AddNew()
        ElseIf Me.Tag.Equals("Edit") Then
            PositionIDTextBox.ReadOnly = True
            Me.Text = "Edit Position Details"
            SaveButton.Text = "Save Changes"
            posCancelButton.Text = "Cancel Changes"
        End If
    End Sub

 'SAVE and CANCEL BUTTONS on the POSITIONFORM.
    Private Sub saveButton_Click(sender As Object, e As EventArgs) Handles SaveButton.Click

        If TitleTextBox.Text = "" Then
            positionLabel.Visible = True
            TitleTextBox.Select()
        ElseIf companyComboBox.SelectedIndex = -1 Then
            CompanyForm.Show()
            CompanyForm.Tag = "Add"
            If CompanyForm.CompanyString = "" Then
                JobHuntingForm.PositionBindingSource.CancelEdit()
                JobHuntingForm.PositionCompanyBindingSource.CancelEdit()
                Exit Sub
            End If
        Else
            PositionString = PositionIDTextBox.Text
            Me.Validate()
            JobHuntingForm.PositionBindingSource.EndEdit()
            JobHuntingForm.PositionTableAdapter.Update(JobHuntingForm.JobHuntingDataSet.Position)
            JobHuntingForm.PositionCompanyBindingSource.EndEdit()
            JobHuntingForm.PositionCompanyTableAdapter.Update(JobHuntingForm.JobHuntingDataSet.PositionCompany)
            Me.Hide()
        End If
    End Sub
    Private Sub Cancelbutton_Click(sender As Object, e As EventArgs) Handles posCancelButton.Click, Me.FormClosing
        PositionString = ""
        JobHuntingForm.PositionBindingSource.CancelEdit()
        JobHuntingForm.PositionCompanyBindingSource.CancelEdit()
        Me.Hide()
    End Sub
end class

How can I add a record to the position table AND the PositionCompany table at the same time.