添加了以下代码：

Private Sub Option1_Click()
Option1.Value = False
    If Text1.Text = "" Then
       MsgBox "请输入时间！", 48, "提示"
       Option1.Value = False
       Adodc1.RecordSource = "select * from 来电管理"
       Adodc1.Refresh
      GoTo err1
    End If
  
      SQL = "select * from 来电管理 where shijian ='" + Text1.Text + "'"
      Adodc1.RecordSource = SQL
      Adodc1.Refresh
      Option1.Value = False
        If Adodc1.Recordset.EOF Then
           MsgBox "没有此记录。", 48, "提示"
           Adodc1.RecordSource = "select * from 来电管理"
           Adodc1.Refresh
           Option1.Value = False
           GoTo err1
        End If
      
err1:

End Sub



出现了：“过程声明与同名事件或过程的描述不匹配”

到底什么回事？改怎么修改！？大侠们~~~救命啊~~

整个界面的代码是：

Private Sub gy_Click()
frmSplash.Show
End Sub



Private Sub Option1_Click()
Option1.Value = False
    If Text1.Text = "" Then
       MsgBox "请输入时间！", 48, "提示"
       Option1.Value = False
       Adodc1.RecordSource = "select * from 来电管理"
       Adodc1.Refresh
      GoTo err1
    End If
  
      SQL = "select * from 来电管理 where shijian ='" + Text1.Text + "'"
      Adodc1.RecordSource = SQL
      Adodc1.Refresh
      Option1.Value = False
        If Adodc1.Recordset.EOF Then
           MsgBox "没有此记录。", 48, "提示"
           Adodc1.RecordSource = "select * from 来电管理"
           Adodc1.Refresh
           Option1.Value = False
           GoTo err1
        End If
      
err1:

End Sub

Private Sub tc_Click()
Dim cle As Integer
      cle = MsgBox("确认退出吗？", 65, "提示")
   If cle = vbOK Then
      End
   Else
      Cancel = 1
   End If
End Sub



Private Sub zyzzl_Click()
Form3.Show
Form4.Hide
End Sub

你的某个控件对象可能是数组形式的吧？