如何向access数据库插入日期、整数、备注类型的值？

  rs2.Open "INSERT INTO  Article ([title], [author], [link],[pubDate],[description],[site],[xmlid],[Category_id]) VALUES('" + _
          CStr(ListView1.ListItems(a).Text) + "', '" + _
        CStr("Sina") + "', '" + _
        CStr(ListView1.ListItems(a).Key) + "', '" + _
        Now + "', '" + _
          CStr(ListView1.ListItems(a).Text) + "', '" + _
        CStr("Sina") + "', '" + _
        60 + "', '" + _
        48 + "') ", conn

总是报类型错误！


[pubDate]：是日期型
[description]：是备注
xmlid],[Category_id]是整数

---

VB code:
rs2.Open "INSERT INTO Article ([title], [author], [link],[pubDate],[description],[site],[xmlid],[Category_id]) VALUES('" + _
CStr(ListView1.ListItems(a).Text) + "', '" + _
CStr("Sina") + "', '" + _
CStr(ListView1.ListItems(a).Key) + "', #" + _
Now + "'# '" + _