数据库SQL操作遇到问题，给出代码请大家帮着分析一下！！！
我想用代码实现只保存Access数据库中前两项记录

遇到这样的问题，我的代码是这样的：
Private Sub Command19_Click()
Dim db As Database
Dim re As Recordset
Dim sql As String
Set db = OpenDatabase(App.Path & "\RYZL.mdb ")
sql = "Delete * Form 人员资料 where xh NOT in (select top 2 xh from 人员资料) "
Set re = db.OpenRecordset(sql)
End Sub

这句出错：Set re = db.OpenRecordset(sql)

提示：语法错误(操作符丢失)在查询表达式sql = "Delete * Form 人员资料 where xh NOT in (select top 2 xh from 人员资料) "中
后来在检查中我发现我的数据库没有设主键，直接就是姓名....然后我设置了自动编号为主键 可是还是不行 ，显示错误语句和提示和之前一样。。

请问哪里出了错？怎么改写代码。。

向高手请教~~~！


[解决办法]
delete from 人员资料 没有*的