Counter (1 Viewer)

[leifgoran]

I need help to place a counter in this cod ex. Counter for "AnArray(B)

Dim db As Database, rs As Recordset, Strval_Count As Integer, I As Integer
Dim Criteria As String, Antal As Integer, B As Integer
Dim AnArray(50) As String

Set db = CurrentDb
Set rs = db.OpenRecordset _("Utrustning", DB_OPEN_DYNASET)
Criteria = "Adminid=" & Me.AdminId
rs.FindFirst Criteria
Strval_Count = 0

For I = 0 To rs.Fields.Count - 2

If TypeName(rs.Fields(I).Value) _ <> "Boolean()" Then
Select Case rs.Fields(I).Value

Case -1
AnArray(B) = rs.Fields(I).Name
Strval_Count = Strval_Count + 1
End Select

End If
Next I
Antal = Strval_Count
Regards Leif