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
相关问答：
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
各位好，我现在要用一台计算机同时监控32台信号接收机（用的是MOXA卡扩展32个串口）。先调试8台。现在的问题是，我有两个命令需要向接收机发送，一个是监控接收机上的信号锁定状态，一个是获取接收机目前的各类工作� ......
