Function AddRow(ByVal input As String, ByVal ds As DataSet, ByVal tablename As String, ByVal dgv As DataGridView)
        Dim NewRow = ds.Tables(tablename).NewRow()
        Dim Table = ds.Tables(tablename)
        NewRow.Item(1) = input
        Table.Rows.Add(NewRow)
        Return False
    End Function

    Function DeleteRow(ByVal selectedrows As DataGridViewSelectedRowCollection, ByVal ds As DataSet, ByVal dgv As DataGridView)
        For Each r As DataGridViewRow In selectedrows
            If Not r.IsNewRow Then
                dgv.Rows.RemoveAt(r.Index)
            End If
        Next
        Return False
    End Function

    Function UpdateAccountTable()
        frmMain.AccountsTableAdapter.Update(frmMain.DsAccounts)
        Return False
    End Function
    Function UpdatePURLTable()
        frmPURL.ProfileURLsTableAdapter.Update(frmPURL.DsProfileURLs)
        Return False
    End Function
    Function UpdatePLocationTable()
        frmPLocation.ProfileLocationsTableAdapter.Update(frmPLocation.DsProfileLocations)
        Return False
    End Function
    Function UpdatePDescriptionTable()
        frmPDesc.ProfileDescriptionsTableAdapter.Update(frmPDesc.DsProfileDescriptions)
        Return False
    End Function