求指点 对象关闭时 不允许操作 column数值无效

Option Explicit
Dim rs_find As New ADODB.Recordset
Private Sub Command1_Click()
On Error GoTo cmderror
Dim find_date1 As String
Dim find_date2 As String
If Option1.Value = True Then
sqlfind = "select * from 图书登记 where 编号 between '" & _
Combo1(0).Text & "'" & " and " & "'" & Combo1(1).Text & "'"
End If
If Option2.Value = True Then
find_date1 = Format(CDate(Comboy(0).Text & "-" & _
Combom(0).Text & "-" & Combod(0).Text), "yyyy-mm-dd")
On Error Resume Next
find_date2 = Format(CDate(Comboy(1).Text & "-" & _
Combom(1).Text & "-" & Combod(1).Text), "yyyy-mm-dd")
On Error Resume Next
sqlfind = "select * from 图书登记 where 购买日期 between #" & _
find_date1 & "#" & " and" & " #" & find_date2 & "#"
On Error Resume Next
frmdatamanage.Show
End If
rs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimistic
frmdatamanage.displaygrid1
Unload Me
frmdatamanage.Show
cmderror:
If Err.Number <> 0 Then
MsgBox "请输入正确的查询条件！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Unload Me
Form1.Show
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim sql As String
If findok = True Then
rs_data1.Close
End If
sql = "select * from 图书登记 order by 编号 desc"
rs_find.CursorLocation = adUseClient
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_find.EOF = False Then '添加编号
With rs_find
Do While Not .EOF
Combo1(0).AddItem .Fields(0)
Combo1(1).AddItem .Fields(0)
.MoveNext
Loop
End With
End If
For i = Val(2000) To Val(2013) '添加年
Comboy(0).AddItem i
Comboy(1).AddItem i
Next i
For i = Val(1) To Val(12) '添加月
Combom(0).AddItem i
Combom(1).AddItem i
Next i
For i = Val(1) To Val(31) '添加日
Combod(0).AddItem i
Combod(1).AddItem i
Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs_find.Close
End Sub