Dim RS As Recordset
Set RS = CurrentDb.OpenRecordset("select фраза,индекс,count(фраза) as повторы from тблСданными group by фраза,индекс")
Do Until RS.EOF
             CurrentDb.Execute "insert into tbl (фраза,индекс,числоПовторов) values (" & rs!фраза & "," & rs!индекс & "," & rs!повторы & ")" 
 ' вместо запроса можно использовать еще один RS для добавления записей
  rs.MoveNext
Loop

Private Sub cmb0_Click()
Dim RS As Recordset, RS1 As Recordset
Set RS = CurrentDb.OpenRecordset("select fr,v,count(fr) from dan group by fr,v")
Set RS1 = CurrentDb.OpenRecordset("tbl")
Do Until RS.EOF
    RS1.AddNew
    RS1!fraza = RS(0)
    RS1!v = RS(1)
    RS1!povt = RS(2)
    RS1.Update
    RS.MoveNext
Loop
End Sub

SELECT dan.fr, dan.V, -Sum([dan].[fr]=[fr]) AS povt
FROM dan
GROUP BY dan.fr, dan.V;

SELECT dan.fr, Format(Avg([V]),"Fixed") AS Vsr, Count(dan.fr) AS [povt]
FROM dan
GROUP BY dan.fr;