请问查找重复语句,错在那里?

yangxiang

请问以下语句错在那里:

Private Sub Command19_Click()

Dim SQL10 As String

SQL10 = "SELECT * FROM table1 WHERE (((table1.编号) In (SELECT [编号] FROM [table1] As Tmp GROUP BY [编号] HAVING Count(*)>1 ))) ORDER BY table1.编号;"

DoCmd.RunSQL SQL10
End Sub