做出来了。
你自己根据要求改吧。
Data1.Database.Execute "select distinct * into q from aa "
Data1.Database.Execute "drop table aa"
Data1.Database.Execute "select * into aa from q"
Data1.Database.Execute "drop table q"
Data1.Refresh
Data1.RecordSource = "select * from aa"
Data1.Refresh