投资方因增加投资但被投资方仍然是投资方的联营企业或合营企业时，下列处理正确的有（）。

A.投资方应当按照新的持股比例对股权投资继续采用权益法进行核算

B.在新增投资日，如果新增投资成本大于按新增持股比例计算的被投资单位可辨认净资产于新增投资日的公允价值份额，不调整长期股权投资成本

C.在新增投资日，如果新增投资成本小于按新增持股比例计算的被投资单位可辨认净资产于新增投资日的公允价值份额，应按该差额，调整长期股权投资成本和营业外收入

D.进行追溯调整时，应当综合考虑与原持有投资和追加投资相关的商誉或计入损益的金额

已知一个名为“学生”的Access数据库，数据库中的表“stud”存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stub”表中添加学生记录，对应“学号”、“姓名”和“籍贯”的4个文本框的名称分别为tNo、tName、tSex和tRes。当单击窗体中的“增加”命令按钮时，首先判断学号是否重复，如果不重复则向“stud”表中添加学生记录；如果学号重复，则给出提示信息。

Private Sub Form_Load
’打开窗口时，连接Access数据库
Set ADOcn=CurrentProjeet．Connection
EndSub
Dim ADOcn As New ADODB．Connection
Private Sub Command1_Click
’增加学生记录
Dim StrSQL As String
Dim ADOrs As NewADODB．Recordset
Set ADOrs．ActiveConnection=ADOcn
ADOrs．Open"Select学号From Stud Where学号="+tNo+"’
IF Not ADOrs (14) Then
’如果该学号的学生记录已经存在，则显示提示信息
MsgBox"你输入的学号已存在，不能增加!"
Else
’增加新学生的记录
strSQL="Insert Into stud(学号，姓名，性别，籍贯)"
strSQL=strSQL+"Values(""+tNo+"，"+tName+tSex+"，"+tRes+"")"
ADOen.Execute (15) 。
MsgBox"添加成功，请继续!"
End If
ADOrs．Close
Set ADOrs=Nothing
End Sub