'rs1.Close
rs1.Open "select str from replace where grp = 1001 and id = " & rs("goodsunit"), conn, 3, 1, 1

上のコードだと２行目で「オブジェクトが開いている場合は操作が許可されません」とエラーがでて

rs1.Close
rs1.Open "select str from replace where grp = 1001 and id = " & rs("goodsunit"), conn, 3, 1, 1

上のコードだと１行目で「オブジェクトが閉じている場合は操作が許可されません」とでました。


なんかおちょくられているようでとってもいい気分なんですが、
なぜでしょう。