大疆2018校招官网:请帮我看看这段程应该怎么改正！！！

Dim sql As String
Dim rs_find As New ADODB.Recordset
Dim conn As New ADODB.Connection

Private Sub Command1_Click()
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=D:\VB\毕业设计\数据库\jmydgl.mdb"
If Trim(DataCombo1.Text) = "" Then
MsgBox "请选择查询年份！", vbOKOnly + vbExclamation, ""
DataCombo1.SetFocus
Exit Sub
End If
If Trim(DataCombo2.Text) = "" Then
MsgBox "请选择查询月份！", vbOKOnly + vbExclamation, ""
DataCombo2.SetFocus
Exit Sub
End If
If Text1.Text <> "" Then
If DataCombo2.Text = "空" Then
sql = "select * from yhxx where 客户编号='" & Text1.Text & "'"
End If
If DataCombo2.Text = "1月" Then
sql = "select * from yhxx where 月份='1月' and 客户编号='" & Text1.Text & "'"
End If
If DataCombo2.Text = "2月" Then
sql = "select * from yhxx where 月份='2月' and 客户编号='" & Text1.Text & "'"
End If
If DataCombo2.Text = "3月" Then
sql = "select * from yhxx where 月份='3月' and 客户编号='" & Text1.Text & "'"
End If
If DataCombo2.Text = "4月" Then
sql = "select * from yhxx where 月份='4月' and 客户编号='" & Text1.Text & "'"
End If
ElseIf Text1.Text = "" Then
MsgBox "请输入客户编号！", vbOKOnly + vbExclamation
rs_find.Close
Text1.SetFocus
Exit Sub
End If
rs_find.CursorLocation = adUseClient
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_find
End Sub

Private Sub Command2_Click()
Dim answer As String
'On Error GoTo cmddel
answer = MsgBox("确定要删除吗？", vbYesNo, "")
If answer = vbYes Then
DataGrid1.AllowDelete = True
rs_find.Delete
rs_find.Update
DataGrid1.Refresh
Else
Exit Sub
End If

'cmddel:
'MsgBox Err.Description
End Sub

每次重新查询时都会出现“对象打开时，不允许操作”的错误！！！
请告诉我一下怎么改正，谢谢！！！
还是不行啊，我以前适过的！！！
倒底怎么改才对呢？？？！！！