vb里的问题
添加图书时出现错误：对象打开时，不允许操作
代码如下：
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Public connstring As String
Private Sub cmdadd_Click()
rs.Open strsql, Conn, 3, 3
rs.Open "select * from 图书 ", Cn, adOpenKeyset, adLockOptimistic, adCmdText
If txt书号.Text = "" Or txt书名.Text = "" Or Txt作者.Text = "" Or _
txt出版社.Text = "" Or txt单价.Text = "" Or txt借出否.Text = "" Then
MsgBox "图书的信息填写不完整,请重新填写!", vbOKOnly + _
vbExclamation, "警告"
Else
rs.AddNew
rst!图书_bookid = txt书号.Text
rst!图书_书名 = txt书名.Text
rst!图书_作者 = Txt作者.Text
rst!图书_出版社 = txt出版社.Text
rst!图书_定价 = txt单价.Text
rst!图书_借出否 = txt借出否.Text
rs.Update
MsgBox "添加图书成功!", vbOKOnly
txt书号.Text = "": txt书名.Text = "": Txt作者.Text = "": _
txt出版社.Text = "": txt单价.Text = "": txt借出否.Text
相关问答：
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
各位好，我现在要用一台计算机同时监控32台信号接收机（用的是MOXA卡扩展32个串口）。先调试8台。现在的问题是，我有两个命令需要向接收机发送，一个是监控接收机上的信号锁定状态，一个是获取接收机目前的各类工作� ......
