这段代玛Access 数据库能用在SQL中不对,请问什么原因?

Question

Private Sub Command2_Click()
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs2.Open "select * from  生产指令档案 where 指令编号='" + Combo1 + "'", adoCon, adOpenKeyset, adLockOptimistic
rs1.Open "select * from  热处理传票 where 顺序号 ='" + Text10.text + "'and 指令编号='" + Combo1 + "'", adoCon, adOpenKeyset, adLockOptimisticIf rs1.RecordCount > 0 Then
cnn.Execute ("insert into 生产指令传票 values ('" & Trim(rs2.Fields(0)) & "','" & rs2.Fields(1) & "','" & rs2.Fields(2) & "','" & rs2.Fields(3) & "','" & rs2.Fields(4) & "','" & rs2.Fields(5) & "','" & rs2.Fields(6) & "','" & Trim(Text10) & "')")adoCon.Execute ("delete from  热处理传票 where 顺序号='" & Text10 & "'and 指令编号='" + Combo1 + "'")
adoCon.Execute ("delete from  热处理档案 where 顺序号='" & Text10 & "'and 指令编号='" + Combo1 + "'")
adoCon.Close
MsgBox "已删除记录"
Else
MsgBox "没有记录", 4, "管理系统"
End IfEnd Sub这段代玛Access 数据库能用在SQL中不对,请问什么原因?帮帮忙

Answer 1

adoCon.Execute ("delete from 热处理传票 where 顺序号='" & Text10 & "'and 指令编号='" + Combo1 + "'")
adoCon.Execute ("delete from 热处理档案 where 顺序号='" & Text10 & "'and 指令编号='" + Combo1 + "'")这两句and前都缺少空格。