And. til terry Et kriterie i en forespørgsel

ups jeg har et modul der beregner gennemsnittet af felterne den melder fejl
ved sum = sum + pArray(i)


Public Function Average(ParamArray pArray() As Variant) As Single
Dim i As Double
Dim counter As Double
Dim sum As Double
  For i = 0 To UBound(pArray)
    If Not IsNull(pArray(i)) Then
      sum = sum + pArray(i)
      counter = counter + 1
    End If
  Next i
  If counter > 0 Then
    Average = sum / counter
  Else
    Average = 0
  End If
 
End Function