Ejercutar consulta Contar

Hola Grupo necesito un favorcito

tengo el siguiente codigo y necesito que cant_prendas tome el valor de
el conteo de los productos que estan activos para poder pasarlo al
FOR y pues asi no me produca un error

gracias

Private Sub tab_servicios_Change()
Dim i As Integer
Dim cant_prendas As Integer
Dim strSQL As String
Dim ctl As Control
On Error GoTo Err_tab_servicios_Change_Click

strSQL = "SELECT Count(tbl_prendas_productos.id_prenda) AS NPrendas
FROM tbl_prendas_productos WHERE
((tbl_prendas_productos.activo)=True);"

cmd_num = 1

For i = 1 To cant_prendas
.
.
.
.

Next i

Exit_tab_servicios_Change_Click:
Exit Sub

Err_tab_servicios_Change_Click:
MsgBox Err.Description
Resume Exit_tab_servicios_Change_Click
End Sub