请交如何删除重复数据后，只保留最后的一行呢？

请交如何删除重复数据后，只保留最后的一行呢？

以下代码只保留第一行

Dim rst As DAO.Recordset
Dim strTemp As String
Set rst = CurrentDb.OpenRecordset("Select * FROM 表2 orDER BY 名称")
If rst.RecordCount > 0 Then
    rst.MoveFirst
    strTemp = rst!名称
    rst.MoveNext
    Do Until rst.EOF 

    If rst!名称 Like "方面*" Then
            If rst!名称 = strTemp Then
            rst.Delete
        Else
            strTemp = rst!名称
        End If
    End If
    rst.MoveNext
    Loop
End If
rst.Close
Set rst = Nothing