运行的时候遇到，对象打开时不允许操作的问题，请问怎么解决

如题
代码如下
Private Sub Command1_Click()
Dim a As String, b As Integer
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & App.Path & "\Database1.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from xiankucun"
i = 0
Do While Not rs.EOF
i = i + 1
a = rs.Fields("xinghao")
If Text3.Text = a Then
b = Text4.Text + Val(rs.Fields("kucun"))
rs.Fields("kucun") = b
rs.Fields("rukutime") = Text5.Text
rs.Update
Exit Do
End If
rs.MoveNext
Loop
rs.Close
Set rs = New ADODB.Recordset
sql = " insert into [record]([mingcheng],[zhonglei],[xinghao],[kucun],[rukutime]) values(' " & Text1.Text & " ',' " & Text2.Text & " ',' " & Text3.Text & " ',' " & Text4.Text & "',' " & Text5.Text & "')"
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
MsgBox "入库成功！"