运行时，总是说 预防专业（专业）无效 我觉得是红色字处出错，但又不知哪里错

constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=就业信息"
ssql = "select 毕业生基本信息.学号,毕业生基本信息.姓名,毕业生基本信息.性别代码,民族.民族,毕业生基本信息.生源所在地,政治面貌.政治面貌,毕业生基本信息.毕业学校,毕业生基本信息.学历代码,专业.专业 ,就业信息.单位名称,就业信息.单位所在地代码 ,就业信息.单位隶属部门 from 就业信息 right join (民族 inner join (政治面貌 inner join (专业 inner join 毕业生基本信息 on 专业.专业代码=毕业生基本信息.专业代码) on 政治面貌.政治面貌代码=毕业生基本信息.政治面貌代码) on 民族.民族代码=毕业生基本信息.民族代码) on 就业信息.学号=毕业生基本信息.学号"
If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 Then
cn = Trim(DataCombo1.Text)
ssql = ssql & "where 毕业生基本信息.专业代码=(select 专业.专业代码 from 专业 where 专业=" & cn & ")"
End If

好心的朋友快来帮帮我吧

那你帮我看看哪里错了