Question

vb SQL 对象Refresh的方法IAdodc失败

Private Sub Command1_Click()
If Option1.Value = True Then
deptno = InputBox("请输入系编号")
tabstring1 = "select 系.系名称,专业.专业名称,学生基本信息.班级,学生基本信息.学号,学生基本信息.姓名,学生基本信息.性别"
tabstring2 = "from 专业,系,学生基本信息"
tabstring3 = "where 专业.系编号=系.系编号 and 专业.专业编号=学生基本信息.专业编号"
tabstring4 = " and 系.系编号 = " & "'" & deptno & "'"
tabstring = tabstring1 & tabstring2 & tabstring3 & tabstring4
End If
Form2.Show
End Sub

Private Sub Form_Activate()
Form1.Adodc1.RecordSource = tabstring
Form1.Adodc1.Refresh
Set DataGrid1.DataSource = Form1.Adodc1

模块
Public tabstring As String
Public deptno As String

运行 输入系编号 弹出个框框(adodc1) 第一行:'.'附近有语法错误
点确定 弹出框框(microsoft visual basic) 实时错误'-2147217900(80040e)':对象Refresh的方法IAdodc失败
按调试 Form1.Adodc1.Refresh
tabstring2和tabstring3之间少了个空格 是哪个空格 能说清楚点吗

tabstring = tabstring1 & tabstring2 & tabstring3 & tabstring4 ??这里面的 空格都有了啊
麻烦下拜托了

Answer 1

tabstring2和tabstring3之间少了个空格

tabstring2 = "from 专业,系,学生基本信息"
tabstring3 = "where 专业.系编号=系.系编号 and 专业.专业编号=学生基本信息.专业编号"

这里tabstring2的最后面应该有个空格：
tabstring2 = "from 专业,系,学生基本信息 "