用VB向Access数据库中添加数据，如何先判定Access中是否已存在此数据项

承接题目--，，，如果存在，则msgbox"已存在"。。如果不存在则 添加此数据项，，谢谢高手们 给予指点，小弟 感激不尽，，，

---

添加数据项以前，先去数据库检查巧派一下，如果存在就给出已存高宽迹在提示，否则添加。
因为没有安装VB6，下面的戚并是手写的，你参考一下：
Private cn As New ADODB.Connection
Private dr As New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Test.mdb"
dr.Open "select f1 from tabel1 where f1='ff'",cn,1,1
if dr.Eof Then
cn.Execute "insert into tabel1(f1) values('xx')"
Else
Msgbox "项目存在"
End If

dr.Close
cn.Close

---

方法1，直接在创建穗启简表的时候进行错误忽略处里。
方法2,select count(*) from MSysObjects where name='表名'进行判断，但该access数据旁虚库需要手工放开MSysObjects表的访猜裤问权限，否则会提示无权访问。

---

先在ACCESS数据库里定义主索引，然后用SEEK搜索，这样就可以判断了。

---