Private Sub Find_Click(Index As Integer)
Dim Name
Name = InputBox$("请输入姓名", "按姓名搜索", "张三")
If Name <> "" Then
Name = "姓名='" & Name & " '"
Data1.Recordset.FindFirst Name
End If

End Sub

提示 Data1.Recordset.FindFirst Name 出错

请达人指教

没搞明白，能把东西都帖出来吗？你连接了么？