VB的一个问题。。着急啊

Question

Private Sub Command1_Click()
Dim sqlstr As String
If Text1.Text = "" Then
MsgBox "请输入入库单编号！", 0 + 48 + 0, "提示"
Text1.SetFocus
Exit Sub
End If
sqlstr = "select * from 入库单信息 where 入库单编号='" & Text1.Text & "'"
Set rs = Nothing
Call LinkData
rs.Open sqlstr, conn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
MsgBox "该入库单编号已经存在！", 0 + 48 + 0, "提示"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "体育设施编号不能为空！"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "货物数量不能为空！"
Text3.SetFocus
Exit Sub
End If
rs.Close
sqlstr = "insert into 入库单信息（入库单编号,体育设施编号,货物数量） values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "')"
rs.Open sqlstr, conn, adOpenKeyset, adLockOptimistic
sqlstr = "update 仓库储存信息 set 库存量信息=(select 仓库储存信息.库存量信息+入库单信息.货物数量 as a from 仓库储存信息,入库单信息 where 仓库储存信息.体育设施编号='" & Text2.Text & "' and 入库单信息.体育设施编号='" & Text2.Text & "'and 入库单信息.入库单编号='" & Text1.Text & "') where 体育设施编号='" & Text2.Text & "'"
rs.Open sqlstr, conn, adOpenKeyset, adLockOptimistic
MsgBox "入库单录入成功！", 0 + 48 + 0, "提示"
End Sub

Private Sub Command3_Click()
Form12.Hide
Form2.Show
End Sub 我已经确认VB程序与数据库已经完全对应好。。为什么一运行总是提示我rs.Open sqlstr, conn, adOpenKeyset, adLockOptimistic第一句语句错误。。给我搞迷了。。大家帮忙啊
还是有问题。。大家帮忙看看啊！@。。。虽然弹出问题。但是数据还是可以传到数据库表中。而且两个数据库的表无法关联。。大家帮帮忙啊

Answer 1

insert into 入库单信息（入库单编号,体育设施编号,货物数量）
中的括号是全角的，改成半角的就可以了
insert into 入库单信息(入库单编号,体育设施编号,货物数量)

如果还有问题，你查查其他的是不是也存在同样的问题

Answer 2

前面的Set rs = Nothing改为
if rs.state=1 then
rs.close
end if本回答被提问者和网友采纳

Answer 3

前面的Set rs = Nothing去掉

Answer 4

应该正确找啊