recorrer array

[Hell08]

holas tengo el sieguiente codigo:

Código:

Dim texto As String = Me.TextBox1.Text
                If texto <> "" Then
            Dim largo As Integer = texto.Length
            Dim i As String
            For Each i In p
                If i.Substring(0, largo) = texto Then
                    Response.Write("&nbsp;&nbsp;<a href=form_listado_usuarios.aspx>" & p(i) & "</a><br>")
                End If

            Next i

        End If

p es una variable que la lleno cuando carga la pagina:

Código:

Dim sql As String = "SELECT USR_ID,USR_PATERNO FROM CPM_USUARIOS"
            Dim cm As OleDbCommand = New OleDbCommand(sql, cn)
            cn.Open()
            rd = cm.ExecuteReader()
            Dim i As Integer = 0
            While rd.Read
                p2(i) = rd.GetValue(0)
                p(i) = rd.GetString(1)

                Response.Write(p(i))
                i += 1
            End While

el arreglo lo carga bien ... el problema es cuando realizo el recorrido me tira un error de objeto no ha sido instanciado.

saludos.