新手遇到的问题.
意思很简单，和数据库相比，没有记录提示不存在，若有则删除记录。
我下面的代码是个死循环，请高手们帮忙看看，非常感谢。
Private Sub Command2_Click()
If Trim(Text1.Text) = "" Then
MsgBox "不能为空 ", vbOK0nly + vbExclamation, ""
Text1.SetFocus
Exit Sub
Else
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = false
If Trim(Data1.Recordset.Fields(0)) = Trim(Text1.Text) Then
Data1.Recordset.Delete
Text1.SetFocus
Data1.Recordset.MoveNext
Else
MsgBox "不存在"
End If
Loop
End If
End Sub

不是太理解，请高手再指明一下，非常感谢。

还是有问题的，当我删除一个记录的时候，是删除了，但同时会报error:"操作被关联对象取消"
呵呵，再帮忙看看。