在数据库Vbandstudy中新建了一个表Recipestudy，里面共有4个字段：ID、Recipe（字符串）
、EB JiLiang、Calender Speed，其中ID字段是自动+1的，算是一个序号吧，每插一行自动+1。
现在我编了如下代码，执行到STEP5就不执行了，是不是在插入命令的时候，我只插入了三个字段，ID字段没有插，但我是自动增加的。还是我的语法上有问题？本人初学，请教各位师傅问题出在什么地方？
Sub OnClick(Byval Item)
Dim con,sql,eb,cal
Dim data1,data2,data3
MsgBox"step1"
'读取Wcc变量
data1=HMIRuntime.Tags("recipe").Read
data2=HMIRuntime.Tags("EBKGY").Read
data3=HMIRuntime.Tags("speed").read
MsgBox"step2"
'连接数据库
Set con =CreateObject("adodb.connection")
con.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=vbandstudy;Data Source=.\wincc"
MsgBox"step3"
'写入数据库
sql="insert into Recipestudy(Recipe,EB JiLiang,Calender speed) values('&data1&','data2','data3') "
MsgBox"step4"
Set eb=CreateObject("Adodb.Recordset")
Set cal=CreateObject("Adodb.command")
Set cal.activeconnection=con
cal.CommandType = 1
cal.CommandText = Sql
MsgBox"step5"
Set eb = cal.Execute
MsgBox"step6"
Set eb = Nothing
con.Close
Set con = Nothing
End Sub