Dim c As New ADODB.Connection

Private Sub Command4_Click()
a1 = "insert into 员工信息表(员工编号,员工姓名,部门ID,员工性别,出生日期,学历ID)values('" & Text1.Text & "','" & Text2.Text & "','" & Text5.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text6.Text & "')"
a2 = "insert into 工资结算(职务ID,职称ID)values('" & Text7.Text & "','" & Text8.Text & "') from 工资结算,员工信息表 where 工资结算.员工编号 = 员工信息表.员工编号"
c.Execute a1
c.Execute a2
Adodc1.CommandType = adCmdUnknown
Adodc1.Refresh
End Sub


运行后弹出了句"SQL语句结束位置缺少分号(;)",请高手指点