Dim rs As ...

rs.Open ... (ADO)
'Set rs = CurrentDb.OpenRecordset ... (DAO)

for i =  1  to  31 
  msgbox rs("d" & i)
next

Dim colvo( 22  to  24 ) as integer

for i =  22  to  24  
colvo(i) =  0 
next

For each ctl in me
if typeof ctl is textbox then
if left(ctl.name) = "d" then
  select case me(ctl.name)
  case  22 : colvo( 22 ) = colvo( 22 ) +  1 
  case  23 : colvo( 23 ) = colvo( 23 ) +  1 
  case  24 : colvo( 24 ) = colvo( 24 ) +  1 
  end select
end if
end if
next

msgbox _
  "22 = " & colvo( 22 ) & vbcrlf & _
  "23 = " & colvo( 23 ) & vbcrlf & _
  "24 = " & colvo( 24 ) & vbcrlf

Dim num( 1  to  31 ) as integer
Dim colvo( 1  to  31 ) as integer
Dim lst as integer
Dim n as integer
Dim i as integer

lst =  0 

For each ctl in me
if typeof ctl is textbox then
if left(ctl.name) = "d" then
 n = me(ctl.name)
 i =  1 
 while (i <= lst) and (num(i)<>n)
  i = i +  1 
 wend

 if i > lst then  /*Не найден - добавляем*/ 
  lst = lst +  1 
  num(lst) = n
  colvo(lst) =  1 
 else  /*Найден - увеличиваем*/ 
  colvo(i) = colvo(i) +  1 
 end if
end if
end if
next

for i =  1  to lst
  msgbox num(i) & " - " & colvo(i)
next