vb连接ACCESS数据库insert into问题

代码如下：
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim dogid As Integer
            dogid = 11602
            cn1.Open "Driver={Microsoft Access Driver (*.mdb)};
            DBQ=e:\data\data\hf2.mdb"
            Set rs1 = cn1.Execute("insert into 加密狗ID values (dogid,0,'""','""')")
            cn1.Close
出现的错误是参数不足，期待是一
此 加密狗ID 表 前两个列是数值型，后两个是整型

为何会出现这种错误呢

---

Set rs1 = cn1.Execute("insert into 加密狗ID values (dogid,0,'""','""')")
删除Set rs1 =

---

楼上的兄弟，还是不行，不过还是谢谢你的帮忙了

---

……你把insert语句前后的括号去掉

---

整型也是数值型.
Set rs1 = cn1.Execute("insert into 加密狗ID(字段名1,字段名2) values (dogid,0)")

---

整型不用'' ,上面的写法是指定需要写入的字段.否则可以写:
Set rs1 = cn1.Execute("insert into 加密狗ID values (dogid,0,0,0)")
这样后面默认添加了两个0

---

http://download.csdn.net/source/1498324