个位ado 编程中出现的错误啊！急啊！

Question

帮我看看！！模块中：
Public Const constr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\小型图书管理信息系统\bookmemagement.mdb"
Public gly As String
------------------------------------
通用：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
------------------------------
程序：
Private Sub Command1_Click()
conn.Open constr
rs.CursorLocation = adUseClient
rs.Open "insert into books(图书编号,图书名称,出版社,作者,ISDN,图书价格,是否带光盘,入库时间,备注) values(tsbh,tsmc,cbs,zz,isdn,tsjg,sfdgp,rtsj,bz)", conn, adOpenKeyset, adLockOptimistic, -1
End Sub
--------------------------------------
错误：
至少一个参数没有设置

Answer 1

conn.execute "insert into books(图书编号,图书名称,出版社,作者,ISDN,图书价格,是否带光盘,入库时间,备注) values(tsbh,tsmc,cbs,zz,isdn,tsjg,sfdgp,rtsj,bz)"

Answer 2

rs.Open "insert into books(图书编号,图书名称,出版社,作者,ISDN,图书价格,是否带光盘,入库时间,备注) values(tsbh,tsmc,cbs,zz,isdn,tsjg,sfdgp,rtsj,bz)", conn

Answer 3

conn.BeginTrans
on error goto here
conn.execute "insert into books(图书编号,图书名称,出版社,作者,ISDN,图书价格,是否带光盘,入库时间,备注) values(tsbh,tsmc,cbs,zz,isdn,tsjg,sfdgp,rtsj,bz)"
conn.CommitTrans
here:
conn.RollbackTrans

Answer 4

conn.execute "insert into books(图书编号,图书名称,出版社,作者,ISDN,图书价格,是否带光盘,入库时间,备注) values(" & tsbh & ",'" & tsmc &"','" & cbs & "','" & zz & '",'" & isdn & "'," & tsjg & "," & sfdgp & "," & rtsj & ",'" & bz & "')"。即如果字段类型为字符，两边要加单引号