请各位朋友们帮看一看这有什么问题，运行时总说列名cn无效


Adodc4.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=就业信息"
ssql = "select 毕业生基本信息.学号,毕业生基本信息. 姓名,毕业生基本信息.性别代码,民族.民族,毕业生基本信息.生源所在地,政治面貌.政治面貌,毕业生基本信息.毕业学校,毕业生基本信息.学历代码,专业.专业名称 ,就业信息.单位名称,就业信息.单位所在地代码 ,就业信息.单位隶属部门 from 就业信息 inner 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
Adodc4.RecordSource = ssql
Adodc4.Refresh
With DataGrid1
.Columns(0).Width = 1000
.Columns(1).Width = 700
.Columns(2).Width = 500
.Columns(3).Width = 500
.Columns(4).Width = 1200
.Columns(5).Width = 1600
.Columns(6).Width = 500
.Columns(7).Width = 1000
.Columns(8).Width = 1000
.Columns(9).Width = 2000
.Columns(10).Width = 1000
.Columns(11).Width = 1000
End With