Access关于删除数据问题？

Question

下面是我做的一个删除按钮的源代码，可当数据库中没有数据时报错，问为什么。帮修改一下，谢谢了。。
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\tongji.mdb;Persist Security Info=False"
conn.Open
rs.Open "select * from lrcx", conn, adOpenDynamic, adLockOptimistic
rs.Delete
rs.Update
rs.MoveNext
If rs.EOF Then
   rs.MoveFirst

Answer 1

rs.Open "select * from lrcx", conn, adOpenDynamic, adLockOptimistic
if rs.eof then 
   ……
else
rs.Delete
end if 
rs.Update
rs.MoveNext
If rs.EOF Then
   rs.MoveFirst
不知这样行不？