vb.net error: pkey at System.Data.ProviderBase.FieldNameLookup.GetOrdinal(String fieldName)

Question

 'Dim dbReader As System.Data.IDataReader
            '******* Ordinal values*******
            '0: ClientKey  
            '1: pkey 
            '2: TeamName 
            '3: Active 
 While dbReader.Read
                If (IsDBNull(dbReader.Item(1))) Then
                    Exit While
                End If
                If Convert.ToBoolean(dbReader.Item(3)) = True Then
                    pTeamCnt += 1
                    Try
                        pTeamKeyList(pTeamCnt) = dbReader.Item(1).ToString
                    Catch ex As Exception
                    End Try
                    pTeamNameList(pTeamCnt) = dbReader.Item(2)
                    SelectInsert3 = SelectInsert3 + "<OPTION VALUE=" & pTeamKeyList(pTeamCnt) & ">" & pTeamNameList(pTeamCnt) & "</OPTION>"
                End If
            End While
            dbReader.Close()
            dbReader.Dispose()
            dbReader = Nothing