I'm trying to make a dynamic array based upon a field in a database.
If the field matches an existing value, add 1 to the second part of the
array.  When I ReDim, I get a runtime error 9.  Any suggestions?

Jereme

    Dim Zip(), I As Double, N As Double

    ReDim Zip(0, 2)

    Do Until datagraph1.Recordset.EOF
        Total = Total + 1

        If datagraph1.Recordset.Fields(8) <> "" And
datagraph1.Recordset.Fields(10) <> "" Then
            CloseS = CloseS + 1
        End If

        If datagraph1.Recordset.Fields(10) <> "" Then
            TotalC = TotalC + 1
        End If

        'Check the zip codes
        For I = LBound(Zip, 1) To UBound(Zip, 1)
            If Zip(I, 1) = datagraph1.Recordset.Fields(3) Then
                Zip(I, 2) = Zip(I, 2) + 1
                Exit For
            Else
                If UBound(Zip, 1) = I Then
                    N = I + 1

                    ReDim Preserve Zip(N, 2)    'Gets stuck here, error
9

                    Zip(N, 1) = datagraph1.Recordset.Fields(3)
                    Zip(N, 2) = 1
                    Exit For
                End If
            End If

        Next

        datagraph1.Recordset.MoveNext

    Loop