DB访问表单不断添加新记录而不显示最新记录。

可以使用以下代码来在访问表单中显示最新的记录：

Private Sub Form_Load()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM [table] ORDER BY [ID] DESC")
    If Not rs.EOF Then
        Me.RecordSource = "SELECT * FROM [table] WHERE [ID] = " & rs!ID
    End If
    rs.Close
    Set rs = Nothing
End Sub

这段代码使用DAO对象打开访问表单的记录集，并将其按照ID倒序排列。然后检查记录集是否为空，如果不是，则将表单的RecordSource属性设置为最新的记录。最后，关闭记录集并将其设置为Nothing，以释放内存。