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的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
我写了一个软件，要用到ACCESS数据库，我再访问ACCESS的时候，我需要从表里读出一行数据，我的程序是这样写的，SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
各位好，我现在要用一台计算机同时监控32台信号接收机（用的是MOXA卡扩展32个串口）。先调试8台。现在的问题是，我有两个命令需要向接收机发送，一个是监控接收机上的信号锁定状态，一个是获取接收机目前的各类工作� ......
