What is wrong with my code???

[sand]

Hi,

I have written the follwoing code.

Dim clientName As String
Dim clientNameArray()
Dim count1 As Integer
Dim NumberOfClients As Integer
NumberOfClients = 0
ReDim clientNameArray(NumberOfClients)
clientNameArray(0) = "test"
count1 = 1
Dim count2 As Integer
Do
If....

clientName = RecordArray(cnt1, 0)
'clientNameArray(count1) = clientName
MsgBox "Test1" + clientName
'IDAccFSEB = IDAccFSEB + 1
'count1 = 1
'count2 = 0
For count2 = 0 To count1
MsgBox "Test" + clientNameArray(count2)
MsgBox "Test2" + clientName
If Not LCase(clientNameArray(count2)) <> LCase(clientName) Then
IDAccFSEB = IDAccFSEB + 1
clientNameArray(count2) = clientName
MsgBox "Test" + clientNameArray(count1)
count1 = count1 + 1
End If
Next
End If
Loop

What happens is i retrieve the clientName from an array.
I have instantiated the array with one record so as it not being empty. If the client'sName is not the same as in the array, then i should the client's name shpuld be inserted into the array and increment a counter. This counter keeps track of the number of clients. However, i keep getting zero for the following variable "IDAccFSEB". y? I hope someone can help. Its urgent. Thanx