下面是三段代码，用的是查找、添加和删除 但是程序运行后，单击按钮没有反应！不知道为什么！ Private Sub cmsearch_Click() Dim prompt As String, searchstr As String prompt$ = "输入完整姓名" searchstr$ = InputBox(prompt$, "查找姓名") 职员档案.Recordset .Index = "姓名" 职员档案.Recordset.Seek "=", searchstr$ If 职员档案.Recordset.NoMatch Then MsgBox ("对不起,不能发现要查找的姓名") 职员档案.Recordset.MoveFirst End If End Sub

Private Sub cmadd_Click() str1$ = "输入新的记录" str2$ = MsgBox(str1$, vbOKCancel, "添加记录") If str2$ = vbOK Then Text1.SetFocus 职员档案.Recordset.AddNew End If End Sub

Private Sub cmdelete_Click() On Error Resume Next str1$ = "您确定要删除一条记录吗?" str2$ = MsgBox(ste1$, vbOKCancel, "删除记录") If str2$ = vbYes Then 职员档案.Recordset.Delete 职员档案.Recordset.MoveNext End If End Sub

你都没有打开数据库

我自己 又 式了式  
前面的 可以用了，我把那个 date  里的recordsettype  给改了一下
但是 后面的 “删除”  运行后 根本就 删不了   不知道为什么！

这是代码：
Private Sub cmdelete_Click()
On Error Resume Next
If MsgBox("您确定要删除一条记录吗?", vbCritical + vbYesNo, "警告") = vbYe Then
职员档案.Recordset.Delete
职员档案.Recordset.MoveNext
End If
End Sub

哈哈 我终于找到了  郁闷~~~
“If MsgBox("您确定要删除一条记录吗?", vbCritical + vbYesNo, "警告") = vbYe Then”

  vbyes   少个 s